Posted to tcl by kbk at Tue Jul 28 20:48:58 GMT 2015view raw

  1. proc gensym {} {
  2. variable i
  3. return \#g[incr i]
  4. }
  5. proc makeTimes {a} {
  6. set p [gensym]
  7. proc $p [list b [list a $a]] {expr {$a * $b}}
  8. return $p
  9. }
  10. set double [makeTimes 2]
  11. puts [$double 3]
  12.