| 1 | *** ../../tcl6.4/tclBasic.c Sun Jun 21 14:09:46 1992 |
| 2 | --- tclBasic.c Tue Oct 6 17:19:52 1992 |
| 3 | *************** |
| 4 | *** 705,710 |
| 5 | iPtr->result = iPtr->resultSpace; |
| 6 | iPtr->resultSpace[0] = 0; |
| 7 | result = (*cmdPtr->proc)(cmdPtr->clientData, interp, argc, argv); |
| 8 | if (result != TCL_OK) { |
| 9 | break; |
| 10 | } |
| 11 | |
| 12 | --- 705,714 ----- |
| 13 | iPtr->result = iPtr->resultSpace; |
| 14 | iPtr->resultSpace[0] = 0; |
| 15 | result = (*cmdPtr->proc)(cmdPtr->clientData, interp, argc, argv); |
| 16 | + /* |
| 17 | + * Signal handling added for Extended Tcl. |
| 18 | + */ |
| 19 | + result = Tcl_CheckForSignal (interp, result); |
| 20 | if (result != TCL_OK) { |
| 21 | break; |
| 22 | } |