diff options
-rw-r--r-- | module/ice-9/boot-9.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index f0877b7d5..ffd1f6876 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -2934,7 +2934,8 @@ module '(ice-9 q) '(make-q q-length))}." ;;; the readline library. (define repl-reader (lambda (prompt . reader) - (display (if (string? prompt) prompt (prompt))) + (if (not (char-ready?)) + (display (if (string? prompt) prompt (prompt)))) (force-output) (run-hook before-read-hook) ((or (and (pair? reader) (car reader)) |