Return to tclbasic.dif CVS log

Up to [Micropolis - Activity] / micropolis / src / tclx / ucbsrc

Micropolis Activity

*** ../../tcl6.4/tclBasic.c	Sun Jun 21 14:09:46 1992
--- tclBasic.c	Tue Oct  6 17:19:52 1992
***************
*** 705,710
  	iPtr->result = iPtr->resultSpace;
  	iPtr->resultSpace[0] = 0;
  	result = (*cmdPtr->proc)(cmdPtr->clientData, interp, argc, argv);
  	if (result != TCL_OK) {
  	    break;
  	}

--- 705,714 -----
  	iPtr->result = iPtr->resultSpace;
  	iPtr->resultSpace[0] = 0;
  	result = (*cmdPtr->proc)(cmdPtr->clientData, interp, argc, argv);
+         /*
+          * Signal handling added for Extended Tcl.
+          */
+         result = Tcl_CheckForSignal (interp, result);
  	if (result != TCL_OK) {
  	    break;
  	}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.