Index: generic/nsf.c =================================================================== diff -u -N -r3301d2725d88fb4bd485ef4024f4fb31eea65c9e -r7f58a3a3dd12990de3dfc8096a85d2341cf02075 --- generic/nsf.c (.../nsf.c) (revision 3301d2725d88fb4bd485ef4024f4fb31eea65c9e) +++ generic/nsf.c (.../nsf.c) (revision 7f58a3a3dd12990de3dfc8096a85d2341cf02075) @@ -25734,6 +25734,24 @@ } /* +cmd "definitionnamespace" NsfDefinitionNamespaceCmd { +} +*/ +static int +NsfDefinitionNamespaceCmd(Tcl_Interp *interp) +{ + Tcl_Namespace *nsPtr; + + nonnull_assert(interp != NULL); + + nsPtr = CallingNameSpace(interp); + Tcl_SetObjResult(interp, Tcl_NewStringObj(nsPtr->fullName, -1)); + + return TCL_OK; +} + + +/* cmd "directdispatch" NsfDirectDispatchCmd { {-argName "object" -required 1 -type object} {-argName "-frame" -required 0 -nrargs 1 -type "method|object|default" -default "default"}