diff options
Diffstat (limited to 'src/interp/i-util.boot')
| -rw-r--r-- | src/interp/i-util.boot | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index 5fe07fb2..dac2c3d8 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -78,6 +78,12 @@ MKPROMPT() == '" [", SUBSTRING(CURRENTTIME(),8,NIL),'"] [", STRINGIMAGE $IOindex, '"] -> ") + +printPrompt(flush? == false) == + PRINC(MKPROMPT(), $OutputStream) + if flush? then + FORCE_-OUTPUT $OutputStream + --% Miscellaneous Zeros n == |