Posted to tcl by kostix at Fri Jun 20 22:17:19 GMT 2008view raw

  1. % proc cmd {} { return if }
  2. % proc cond {} { return {$x < 0} }
  3. % proc body {} { return {puts {$x < 0}} }
  4. % set x -2
  5. -2
  6. % [cmd] [cond] [body]
  7. $x < 0
  8.