diff options
Diffstat (limited to 'src/interp/int-top.boot')
| -rw-r--r-- | src/interp/int-top.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 5c4664bc..9e5b1063 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -41,7 +41,7 @@ ncParseAndInterpretString s == processInteractive(packageTran parseFromString s, nil) ncParseFromString s == - zeroOneTran packageTran CATCH("SPAD__READER", parseFromString s) + zeroOneTran packageTran CATCH($SpadReaderTag, parseFromString s) ncINTERPFILE(file, echo) == savedEcho := $EchoLines @@ -85,7 +85,7 @@ runspad() == while mode='restart repeat resetStackLimits() CATCH($quitTag, CATCH('coerceFailure, - mode:=CATCH('top__level, ncTopLevel()))) + mode:=CATCH($intTopLevel, ncTopLevel()))) ncTopLevel() == -- Top-level read-parse-eval-print loop for the interpreter. Uses @@ -228,7 +228,7 @@ intloopSpadProcess(stepNo,lines,ptree,interactive?)== ncPutQ(cc, 'lines, lines) $ncMsgList := nil result := CatchAsCan(flung, Catch("SpadCompileItem", - CATCH($intCoerceFailure, CATCH($intSpadReader, + CATCH($intCoerceFailure, CATCH($SpadReaderTag, interp(cc, ptree, interactive?))))) where interp(cc, ptree, interactive?) == |