diff options
author | dos-reis <gdr@axiomatics.org> | 2008-10-08 02:49:53 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-10-08 02:49:53 +0000 |
commit | a1b2cf9cb8b3369a938ee80cc028eca8fef4d1ce (patch) | |
tree | 25b8d5cb4b4df1d1568a25b4ce21bf23232e3a49 /src/interp/ht-util.boot | |
parent | dab5bd48d7830f4e11a19cf3ea28528099a5c1e0 (diff) | |
download | open-axiom-a1b2cf9cb8b3369a938ee80cc028eca8fef4d1ce.tar.gz |
* interp/i-util.boot (printPrompt): New.
* interp/ht-util.boot (executeInterpreterCommand): Use it.
* interp/int-top.boot (SpadInterpretStream): Likewise.
* interp/metalex.lisp (get-a-line): Likewise.
* interp/server.boot (serverReadLine): Likewise.
(serverLoop): Likewise.
Diffstat (limited to 'src/interp/ht-util.boot')
-rw-r--r-- | src/interp/ht-util.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot index fe18f0e5..21d78e58 100644 --- a/src/interp/ht-util.boot +++ b/src/interp/ht-util.boot @@ -474,8 +474,7 @@ executeInterpreterCommand command == TERPRI() ncSetCurrentLine(command) CATCH($SpadReaderTag, parseAndInterpret command) - PRINC MKPROMPT() - FINISH_-OUTPUT() + printPrompt "andFlush" typeCheckInputAreas htPage == -- This needs to be severly beefed up |