diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-02 09:38:03 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-02 09:38:03 (GMT) |
commit | cd7f1c6c44d929ae0f9ad4ef46038765969a94a6 (patch) | |
tree | 0986e9708ae5ed1a4f027f0142e942aac7b3f29f /generic/tclOO.c | |
parent | 6418dc63fd2459110ec65445bbc611c4aa2e32fe (diff) | |
parent | 7d35dc662f87cf8c5b430c248f1da15ba16104b7 (diff) | |
download | tcl-cd7f1c6c44d929ae0f9ad4ef46038765969a94a6.zip tcl-cd7f1c6c44d929ae0f9ad4ef46038765969a94a6.tar.gz tcl-cd7f1c6c44d929ae0f9ad4ef46038765969a94a6.tar.bz2 |
merge main working branch
Diffstat (limited to 'generic/tclOO.c')
-rw-r--r-- | generic/tclOO.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 529640f..9a0682d 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -437,10 +437,11 @@ InitFoundation( * ensemble. */ - Tcl_CreateObjCommand(interp, "::oo::Helpers::next", TclOONextObjCmd, NULL, - NULL); - Tcl_CreateObjCommand(interp, "::oo::Helpers::nextto", TclOONextToObjCmd, - NULL, NULL); + cmdPtr = (Command *) Tcl_NRCreateCommand(interp, "::oo::Helpers::next", + NULL, TclOONextObjCmd, NULL, NULL); + cmdPtr->compileProc = TclCompileObjectNextCmd; + Tcl_NRCreateCommand(interp, "::oo::Helpers::nextto", + NULL, TclOONextToObjCmd, NULL, NULL); cmdPtr = (Command *) Tcl_CreateObjCommand(interp, "::oo::Helpers::self", TclOOSelfObjCmd, NULL, NULL); cmdPtr->compileProc = TclCompileObjectSelfCmd; |