Posted to tcl by mjanssen at Sat Mar 09 11:37:46 GMT 2024view raw

  1. interp create -safe safeint
  2. package require tcltest
  3. foreach cmd [info commands tcltest::*] {
  4. interp alias safeint $cmd {} $cmd
  5.  
  6. }
  7. safeint eval {info commands tcltest::*}