diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-08-26 00:43:37 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-08-26 00:43:37 +0000 |
| commit | 8e50d849f23a839f2410cc388f97ee2dc4c76786 (patch) | |
| tree | e6c45fe393f6d44eb08862126052ca3d0ca48f52 /src | |
| parent | 14a4b85c2ae0836b9020b2c28d0232d206d69fe8 (diff) | |
| download | open-axiom-8e50d849f23a839f2410cc388f97ee2dc4c76786.tar.gz | |
* interp/i-util.boot: Lose paramater. Unconditional flush the
output stream. Adjust callers.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -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 |
4 files changed, 9 insertions, 5 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 096024c3..554f80e6 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2012-08-25 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/i-util.boot: Lose paramater. Unconditional flush the + output stream. Adjust callers. + 2012-08-24 Alfredo Portes <doyenatccny@gmail.com> * interp/setvars.boot ()version): Use *build-version* 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 => |