Andy Wingo <[EMAIL PROTECTED]> writes: > * ice-9/boot-9.scm (repl-reader): Support thunks as prompts. > --- > ice-9/boot-9.scm | 2 +- > 1 files changed, 1 insertions(+), 1 deletions(-) > > diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm > index d1e6306..b92cfd6 100644 > --- a/ice-9/boot-9.scm > +++ b/ice-9/boot-9.scm > @@ -2518,7 +2518,7 @@ > ;;; the readline library. > (define repl-reader > (lambda (prompt) > - (display prompt) > + (display (if (string? prompt) prompt (prompt))) > (force-output) > (run-hook before-read-hook) > ((or (fluid-ref current-reader) read) (current-input-port))))
I don't get this one. Isn't the thunk option already covered by the code that calls repl-reader, here: (let ((prompt (cond ((string? scm-repl-prompt) scm-repl-prompt) ((thunk? scm-repl-prompt) (scm-repl-prompt)) (scm-repl-prompt "> ") (else "")))) (repl-reader prompt)))) Regards, Neil