Posted to tcl by miguel at Wed Mar 05 14:45:40 GMT 2008view raw
- TclNRInterpProc(
- ClientData clientData, /* Record describing procedure to be
- * interpreted. */
- register Tcl_Interp *interp,/* Interpreter in which procedure was
- * invoked. */
- int objc, /* Count of number of arguments to this
- * procedure. */
- Tcl_Obj *CONST objv[]) /* Argument value objects. */
- {
- int result;
- result = PushProcCallFrame(clientData, interp, objc, objv, /*isLambda*/ 0);
- if (result == TCL_OK) {
- return TclNRInterpProcCore(interp, objv[0], 1, &MakeProcError);
- } else {
- return TCL_ERROR;
- }
- }