Attachment "nre.diff" to
ticket [3168229fff]
added by
msofer
2011-01-31 00:59:18.
--- generic/tclBasic.c 2011-01-30 14:49:22.193673505 -0300
+++ ../fossil/NEW/head/generic/tclBasic.c 2011-01-18 11:00:08.899388510 -0300
@@ -4280,7 +4280,6 @@
* a callback to do the actual running.
*/
-#if 0
objProc = cmdPtr->nreProc;
if (!objProc) {
objProc = cmdPtr->objProc;
@@ -4289,15 +4288,7 @@
TclNRAddCallback(interp, NRRunObjProc, objProc, objClientData,
INT2PTR(objc), (ClientData) objv);
-#else
- if (cmdPtr->nreProc) {
- TclNRAddCallback(interp, NRRunObjProc, cmdPtr->nreProc,
- cmdPtr->objClientData, INT2PTR(objc), (ClientData) objv);
- return TCL_OK;
- } else {
- return cmdPtr->objProc(cmdPtr->objClientData, interp, objc, objv);
- }
-#endif
+ return TCL_OK;
}
void