diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/ht-util.boot | 2 | ||||
| -rw-r--r-- | src/interp/i-util.boot | 5 | ||||
| -rw-r--r-- | src/interp/server.boot | 2 |
3 files changed, 4 insertions, 5 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot index 6bd5fe02..20c7ba23 100644 --- a/src/interp/ht-util.boot +++ b/src/interp/ht-util.boot @@ -467,7 +467,7 @@ executeInterpreterCommand command == TERPRI() ncSetCurrentLine(command) CATCH($SpadReaderTag, parseAndInterpret command) - not $leanMode and printPrompt "andFlush" + not $leanMode and printPrompt() typeCheckInputAreas htPage == -- This needs to be severly beefed up diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index d635f34d..de513671 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -72,10 +72,9 @@ MKPROMPT() == toString $IOindex, '"] -> ") -printPrompt(flush? == false) == +printPrompt() == writeString(MKPROMPT(), $OutputStream) - if flush? then - flushOutput $OutputStream + flushOutput $OutputStream ++ Return the name of a text editor, if possible. textEditor() == diff --git a/src/interp/server.boot b/src/interp/server.boot index 6206169e..e989fe80 100644 --- a/src/interp/server.boot +++ b/src/interp/server.boot @@ -90,7 +90,7 @@ serverReadLine(stream) == stringBuf := sockGetString $MenuServer CATCH('coerceFailure,CATCH($intTopLevel, CATCH($SpadReaderTag, parseAndInterpret stringBuf))) - not $leanMode and printPrompt "andFlush" + not $leanMode and printPrompt() action = $NonSmanSession => $SpadServer := nil action = $KillLispSystem => |