diff options
Diffstat (limited to 'src/interp/server.boot')
| -rw-r--r-- | src/interp/server.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/server.boot b/src/interp/server.boot index f7b78cfe..0462a5d4 100644 --- a/src/interp/server.boot +++ b/src/interp/server.boot @@ -64,7 +64,7 @@ serverReadLine(stream) == $NeedToSignalSessionManager := true return l action = $CreateFrame => - frameName := GENTEMP('"frame") + frameName := GENSYM('"frame") addNewInterpreterFrame(frameName) $frameAlist := [[$frameNumber,:frameName], :$frameAlist] $currentFrameNum := $frameNumber @@ -136,7 +136,7 @@ serverLoop() == FINISH_-OUTPUT() sockSendInt($SessionManager, $EndOfOutput) action = $CreateFrame => - frameName := GENTEMP('"frame") + frameName := GENSYM('"frame") addNewInterpreterFrame(frameName) $frameAlist := [[$frameNumber,:frameName], :$frameAlist] $currentFrameNum := $frameNumber |