Posted to tcl by kostix at Fri Jun 20 22:17:19 GMT 2008view pretty
% proc cmd {} { return if }
% proc cond {} { return {$x < 0} }
% proc body {} { return {puts {$x < 0}} }
% set x -2
-2
% [cmd] [cond] [body]
$x < 0
% proc cmd {} { return if }
% proc cond {} { return {$x < 0} }
% proc body {} { return {puts {$x < 0}} }
% set x -2
-2
% [cmd] [cond] [body]
$x < 0