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,