aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2012-08-26 00:43:37 +0000
committerdos-reis <gdr@axiomatics.org>2012-08-26 00:43:37 +0000
commit8e50d849f23a839f2410cc388f97ee2dc4c76786 (patch)
treee6c45fe393f6d44eb08862126052ca3d0ca48f52 /src/interp
parent14a4b85c2ae0836b9020b2c28d0232d206d69fe8 (diff)
downloadopen-axiom-8e50d849f23a839f2410cc388f97ee2dc4c76786.tar.gz
* interp/i-util.boot: Lose paramater. Unconditional flush the
output stream. Adjust callers.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/ht-util.boot2
-rw-r--r--src/interp/i-util.boot5
-rw-r--r--src/interp/server.boot2
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 =>