mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
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:
parent
9fa8d8c1f0
commit
ccc4b87bc9
1 changed files with 2 additions and 2 deletions
|
@ -295,7 +295,7 @@
|
||||||
(cond
|
(cond
|
||||||
((pair? mods)
|
((pair? mods)
|
||||||
(display name out)
|
(display name out)
|
||||||
(display " is exported by:\n")
|
(display " is exported by:\n" out)
|
||||||
(for-each
|
(for-each
|
||||||
(lambda (m)
|
(lambda (m)
|
||||||
(display " " out) (write m out) (newline out))
|
(display " " out) (write m out) (newline out))
|
||||||
|
@ -303,7 +303,7 @@
|
||||||
(lambda (a b)
|
(lambda (a b)
|
||||||
(string<? (write-to-string a) (write-to-string b))))))
|
(string<? (write-to-string a) (write-to-string b))))))
|
||||||
(else
|
(else
|
||||||
(display "... none found.\n"))))))))))
|
(display "... none found.\n" out))))))))))
|
||||||
|
|
||||||
(define (repl/eval rp expr-list)
|
(define (repl/eval rp expr-list)
|
||||||
(let ((out (repl-out rp)))
|
(let ((out (repl-out rp)))
|
||||||
|
|
Loading…
Add table
Reference in a new issue