diff options
Diffstat (limited to 'src/interp/g-error.boot')
-rw-r--r-- | src/interp/g-error.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index 06275781..718752fd 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -71,7 +71,9 @@ argumentDataError(argnum, condit, funname) == queryUser msg == -- display message and return reply sayBrightly msg - read_-line $InputStream + line := readLine $InputStream + line ~= %nothing => line + nil -- errorSupervisor is the old style error message trapper |