Posted to tcl by dbohdan at Tue May 19 16:50:07 GMT 2015view raw

  1. #!/usr/bin/env jimsh
  2. proc ::ns::blah {a b} {
  3. return [+ $a $b]
  4. }
  5.  
  6. proc ::ns args {
  7. ::ns::[lindex $args 0] {*}[lrange $args 1 end]
  8. }
  9.  
  10. puts [::ns blah 1 2]
  11.