Posted to tcl by colin at Wed May 07 08:41:09 GMT 2008view raw

  1. dict for {k v} {fred 1} {
  2. dict append margs body fred \n
  3. }
  4. puts stderr "MOOP"
  5. proc body {} {
  6. dict for {k v} {fred 1} {
  7. dict append margs body fred \n
  8. }
  9. }
  10.  
  11. body
  12.