diff options
Diffstat (limited to 'src/interp/msgdb.boot')
| -rw-r--r-- | src/interp/msgdb.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 9f11e30e..c52bbf60 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -431,9 +431,10 @@ queryUserKeyedMsg(key,args) == -- display message and return reply conStream := DEFIOSTREAM ('((DEVICE . CONSOLE) (MODE . INPUT)),120,0) sayKeyedMsg(key,args) - ans := read_-line conStream + ans := readLine conStream SHUT conStream - ans + ans ~= %nothing => ans + nil flowSegmentedMsg(msg, len, offset) == -- tries to break a sayBrightly-type input msg into multiple |