Hello!
Rob Browning <[email protected]> skribis:
> I noticed that 00-repl-server.test had failed on some of the debian
> buildds like this:
>
> Running 00-initial-env.test
> Running 00-repl-server.test
> FAIL: 00-repl-server.test: repl-server: simple expression - arguments:
> (expected-value "scheme@(repl-server)> $1 = 42\n" actual-value "$1 = 42\n")
The reason is that ‘repl-reader’ in boot-9.scm goes like this:
(lambda* (prompt #:optional (reader (fluid-ref current-reader)))
(if (not (char-ready?))
(begin
(display (if (string? prompt) prompt (prompt)))
(set-port-column! (current-output-port) 0)))
(force-output)
(run-hook before-read-hook)
((or reader read) (current-input-port)))
Thus, if there’s already data available on the current input port, it
does not print the prompt.
That situation can arise in 00-repl-server.test if we write “(+ 40 2)”
too quickly.
Fixed in 2fbde7f02adb8c6585e9baf6e293ee49cd23d4c4.
Thanks!
Ludo’.
