Posted to tcl by emiliano at Wed Aug 17 23:15:21 GMT 2011view raw

  1. Bytecompiling issue?
  2.  
  3. (emiliano) 69 % proc foo args {puts foo1}
  4. (emiliano) 70 % trace add command foo delete {proc foo args {puts foo2};#}
  5. (emiliano) 71 % foo
  6. foo1
  7. (emiliano) 72 % rename foo {}
  8. (emiliano) 73 % foo
  9. foo2
  10. (emiliano) 74 % rename foo {}
  11. (emiliano) 75 % proc foo args {puts foo1}
  12. (emiliano) 76 % trace add command foo delete {eval proc foo args {puts foo2};#}
  13. (emiliano) 77 % foo
  14. foo1
  15. (emiliano) 78 % rename foo {}
  16. (emiliano) 79 % foo
  17. invalid command name "foo"