new TclNRAddCallback macro for internal use instead of the public

Tcl_NRAddCallback

1 files changed, 5 insertions, 5 deletions

diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c
index cb717ee..2adf547 100644
--- a/generic/tclOOBasic.c
+++ b/generic/tclOOBasic.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclOOBasic.c,v 1.6 2008/07/18 17:23:57 dkf Exp $
+ * RCS: @(#) $Id: tclOOBasic.c,v 1.7 2008/07/18 23:29:44 msofer Exp $
  */
 
 #ifdef HAVE_CONFIG_H
@@ -32,7 +32,7 @@ static int		RestoreFrame(ClientData data[],
  *
  * AddCreateCallback, FinalizeConstruction --
  *
- *	Special version of Tcl_NRAddCallback that allows the caller to splice
+ *	Special version of TclNRAddCallback that allows the caller to splice
  *	the object created later on. Always calls FinalizeConstruction, which
  *	converts the object into its name and stores that in the interpreter
  *	result. This is shared by all the construction methods (create,
@@ -51,7 +51,7 @@ AddConstructionFinalizer(
 {
     TEOV_record *recordPtr;
 
-    Tcl_NRAddCallback(interp, FinalizeConstruction, NULL, NULL, NULL, NULL);
+    TclNRAddCallback(interp, FinalizeConstruction, NULL, NULL, NULL, NULL);
     recordPtr = TOP_RECORD(interp);
     return (Tcl_Object *) &recordPtr->callbackPtr->data[0];
 }
@@ -346,7 +346,7 @@ TclOO_Object_Eval(
      * the script completes.
      */
 
-    Tcl_NRAddCallback(interp, FinalizeEval, object, NULL, NULL, NULL);
+    TclNRAddCallback(interp, FinalizeEval, object, NULL, NULL, NULL);
     return TclNREvalObjEx(interp, scriptPtr, flags, invoker, skip);
 }
 
@@ -659,7 +659,7 @@ TclOONextObjCmd(
      * that this is like [uplevel 1] and not [eval].
      */
 
-    Tcl_NRAddCallback(interp, RestoreFrame, framePtr, NULL, NULL, NULL);
+    TclNRAddCallback(interp, RestoreFrame, framePtr, NULL, NULL, NULL);
     iPtr->varFramePtr = framePtr->callerVarPtr;
     return TclNRObjectContextInvokeNext(interp, context, objc, objv, 1);
 }