Display warning on stderr, not stdout.

Right now, a part of the warning (undefined variable: foo, is exported by: ..)
is displayed to stdout. This patch makes the entire message show up on stderr,
not split up between the two output streams.
This commit is contained in:
Peter 2017-01-09 08:27:14 +01:00
parent 9fa8d8c1f0
commit ccc4b87bc9

View file

@ -295,7 +295,7 @@
(cond
((pair? mods)
(display name out)
(display " is exported by:\n")
(display " is exported by:\n" out)
(for-each
(lambda (m)
(display " " out) (write m out) (newline out))
@ -303,7 +303,7 @@
(lambda (a b)
(string<? (write-to-string a) (write-to-string b))))))
(else
(display "... none found.\n"))))))))))
(display "... none found.\n" out))))))))))
(define (repl/eval rp expr-list)
(let ((out (repl-out rp)))