Index: generic/nsf.tcl =================================================================== diff -u -rfc77eaadabdd690239694a6f1cf155a7d16b5cd4 -rbca161db07ae2fe223f49b5aa5e44e7149cf9e67 --- generic/nsf.tcl (.../nsf.tcl) (revision fc77eaadabdd690239694a6f1cf155a7d16b5cd4) +++ generic/nsf.tcl (.../nsf.tcl) (revision bca161db07ae2fe223f49b5aa5e44e7149cf9e67) @@ -130,7 +130,7 @@ set {::proc ::nsf::__exithandler {} $value} get {::info body ::nsf::__exithandler} unset {proc ::nsf::__exithandler args {;}} - default {error "syntax: ::nsf::exithandler $::nsf::parametersyntax(::nsf::exithandler)"} + default {error "syntax: ::nsf::exithandler $::nsf::parameter::syntax(::nsf::exithandler)"} } } # initialize exit handler @@ -193,6 +193,7 @@ # # parameter support # + namespace eval ::nsf::parameter {} proc ::nsf::parameter::filter {defs pattern} { set result {} foreach def $defs { @@ -203,8 +204,10 @@ return $result } - set ::nsf::parametersyntax(::nsf::xotclnext) "?--noArgs? ?/arg .../?" - set ::nsf::parametersyntax(::nsf::__unset_unknown_args) "" - set ::nsf::parametersyntax(::nsf::exithandler) "?get?|?set /cmds/?|?unset?" + set ::nsf::parameter::syntax(::nsf::xotclnext) "?--noArgs? ?/arg .../?" + set ::nsf::parameter::syntax(::nsf::__unset_unknown_args) "" + set ::nsf::parameter::syntax(::nsf::exithandler) "?get?|?set /cmds/?|?unset?" + puts stderr "::nsf children [namespace children ::nsf]" + }