diff options
| -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 => |