;;; 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))