Posted to tcl by colin at Mon Oct 14 20:02:17 GMT 2013view pretty
diff -cr tcl8.6.1/generic/tclBasic.c tcl8.6.1.yieldm/generic/tclBasic.c *** tcl8.6.1/generic/tclBasic.c 2013-09-19 12:04:14.000000000 -0700 --- tcl8.6.1.yieldm/generic/tclBasic.c 2013-10-14 12:58:18.693573914 -0700 *************** *** 260,265 **** --- 260,266 ---- {"while", Tcl_WhileObjCmd, TclCompileWhileCmd, TclNRWhileObjCmd, CMD_IS_SAFE}, {"yield", NULL, TclCompileYieldCmd, TclNRYieldObjCmd, CMD_IS_SAFE}, {"yieldto", NULL, NULL, TclNRYieldToObjCmd, CMD_IS_SAFE}, + {"yieldm", NULL, NULL, TclNRYieldmObjCmd, CMD_IS_SAFE}, /* * Commands in the OS-interface. Note that many of these are unsafe. *************** *** 8405,8410 **** --- 8406,8421 ---- } int + TclNRYieldmObjCmd( + ClientData clientData, + Tcl_Interp *interp, + int objc, + Tcl_Obj *const objv[]) + { + return TclNRYieldObjCmd(INT2PTR(CORO_ACTIVATE_YIELDM), interp, objc, objv); + } + + int TclNRYieldToObjCmd( ClientData clientData, Tcl_Interp *interp,