diff options
Diffstat (limited to 'src/interp/server.boot')
| -rw-r--r-- | src/interp/server.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/server.boot b/src/interp/server.boot index 5f7652d8..57a706a3 100644 --- a/src/interp/server.boot +++ b/src/interp/server.boot @@ -88,7 +88,7 @@ serverReadLine(stream) == action = $SpadCommand => $NeedToSignalSessionManager := true stringBuf := sockGetString $MenuServer - CATCH('coerceFailure,CATCH('top__level, CATCH('SPAD__READER, + CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret stringBuf))) PRINC MKPROMPT() FINISH_-OUTPUT() @@ -114,7 +114,7 @@ oldParseAndInterpret str == executeQuietCommand() == $QuietCommand: fluid := true stringBuf := sockGetString $MenuServer - CATCH('coerceFailure,CATCH('top__level, CATCH('SPAD__READER, + CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret stringBuf))) -- Includued for compatability with old-parser systems @@ -126,7 +126,7 @@ serverLoop() == $Prompt := NIL action := serverSwitch() action = $CallInterp => - CATCH('coerceFailure,CATCH('top__level, CATCH('SPAD__READER, + CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret read_-line($InputStream) ))) PRINC MKPROMPT() FINISH_-OUTPUT() @@ -153,7 +153,7 @@ serverLoop() == executeQuietCommand() action = $SpadCommand => stringBuf := sockGetString $MenuServer - CATCH('coerceFailure,CATCH('top__level, CATCH('SPAD__READER, + CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret stringBuf))) PRINC MKPROMPT() FINISH_-OUTPUT() @@ -173,21 +173,21 @@ parseAndEvalToString str == $collectOutput:local := true $outputLines: local := nil $IOindex: local := nil - v := CATCH('SPAD__READER, CATCH('top__level, parseAndEvalStr str)) + v := CATCH($SpadReaderTag, CATCH($intTopLevel, parseAndEvalStr str)) v = 'restart => ['"error"] NREVERSE $outputLines parseAndEvalToStringForHypertex str == $collectOutput:local := true $outputLines: local := nil - v := CATCH('SPAD__READER, CATCH('top__level, parseAndEvalStr str)) + v := CATCH($SpadReaderTag, CATCH($intTopLevel, parseAndEvalStr str)) v = 'restart => ['"error"] NREVERSE $outputLines parseAndEvalToStringEqNum str == $collectOutput:local := true $outputLines: local := nil - v := CATCH('SPAD__READER, CATCH('top__level, parseAndEvalStr str)) + v := CATCH($SpadReaderTag, CATCH($intTopLevel, parseAndEvalStr str)) v = 'restart => ['"error"] NREVERSE $outputLines |