| version 1.23 | version 1.24 |
|---|
| |
| DebugM(1,"here\n"); | DebugM(1,"here\n"); |
| if (code != TCL_OK) { | if (code != TCL_OK) { |
| const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0); | const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0); |
| NAMD_die(errorInfo); | NAMD_die(errorInfo ? errorInfo : "Unknown Tcl error"); |
| } | } |
| } | } |
| | |
| |
| if (*result != 0) CkPrintf("TCL: %s\n",result); | if (*result != 0) CkPrintf("TCL: %s\n",result); |
| if (code != TCL_OK) { | if (code != TCL_OK) { |
| const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0); | const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0); |
| NAMD_die(errorInfo); | NAMD_die(errorInfo ? errorInfo : "Unknown Tcl error"); |
| } | } |
| #endif | #endif |
| | |