Re: support thunks as prompts without readline

[Neil Jerram]

Andy Wingo <address@hidden> 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