Posted to tcl by schelte at Sat Sep 03 11:35:24 GMT 2022view raw

  1. puts [info tcl]
  2.  
  3. namespace eval a {
  4. proc q {} {return q}
  5. namespace eval b {
  6. proc z {} {return z}
  7. }
  8. namespace path b
  9. namespace ensemble create -prefixes no -subcommands [list q z]
  10. }
  11.  
  12. puts [a q]
  13. puts [a z]