diff options
Diffstat (limited to 'src/interp/server.boot')
| -rw-r--r-- | src/interp/server.boot | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/interp/server.boot b/src/interp/server.boot index 91bd59e3..6206169e 100644 --- a/src/interp/server.boot +++ b/src/interp/server.boot @@ -53,10 +53,8 @@ serverReadLine(stream) == line := readLine stream line ~= %nothing => line nil - IN_-STREAM: local := stream - _*EOF_*: local := nil line := - while not $EndServerSession and not _*EOF_* repeat + while not $EndServerSession and line ~= %nothing repeat if $NeedToSignalSessionManager then sockSendInt($SessionManager, $EndOfOutput) $NeedToSignalSessionManager := false @@ -64,7 +62,7 @@ serverReadLine(stream) == action = $CallInterp => l := readLine stream $NeedToSignalSessionManager := true - return l + leave l action = $CreateFrame => frameName := gensym('"frame") addNewInterpreterFrame(frameName) |