diff options
Diffstat (limited to 'src/interp/server.boot')
-rw-r--r-- | src/interp/server.boot | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/interp/server.boot b/src/interp/server.boot index 6e73a06a..3e46b28a 100644 --- a/src/interp/server.boot +++ b/src/interp/server.boot @@ -51,8 +51,8 @@ serverReadLine(stream) == FORCE_-OUTPUT() not $SpadServer or not IS_-CONSOLE stream => read_-line(stream) - IN_-STREAM: fluid := stream - _*EOF_*: fluid := nil + IN_-STREAM: local := stream + _*EOF_*: local := nil line := while not $EndServerSession and not _*EOF_* repeat if $NeedToSignalSessionManager then @@ -100,13 +100,13 @@ serverReadLine(stream) == "" parseAndInterpret str == - $InteractiveMode :fluid := true - $SPAD: fluid := true - $e:fluid := $InteractiveFrame + $InteractiveMode : local := true + $SPAD: local := true + $e: local := $InteractiveFrame ncParseAndInterpretString str executeQuietCommand() == - $QuietCommand: fluid := true + $QuietCommand: local := true stringBuf := sockGetString $MenuServer CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret stringBuf))) @@ -145,9 +145,9 @@ parseAndInterpToString str == breakIntoLines rest v parseAndEvalStr string == - $InteractiveMode :fluid := true - $SPAD: fluid := true - $e:fluid := $InteractiveFrame + $InteractiveMode: local := true + $SPAD: local := true + $e: local := $InteractiveFrame parseAndEvalStr1 string parseAndEvalStr1 string == |