diff options
author | Andy Wingo <wingo@pobox.com> | 2012-03-06 00:34:59 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-03-06 00:51:49 +0100 |
commit | f7955da9663804812a914b17459483d376db42aa (patch) | |
tree | 5f9112250b3c1942d7da78f5b557f82b8a843410 | |
parent | f28dc43c959f74164daf9eeabfdd6ccb19556f60 (diff) | |
download | guile-f7955da9663804812a914b17459483d376db42aa.tar.gz |
bootstrapping shenanigans in `warn'
* module/ice-9/boot-9.scm (warn): Don't use with-output-to-port, as
we'll move that definition after the psyntax boot.
-rw-r--r-- | module/ice-9/boot-9.scm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index ae1fece37..900c25a8c 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -435,13 +435,11 @@ procedures, their behavior is implementation dependent." (define current-warning-port current-error-port) (define (warn . stuff) - (with-output-to-port (current-warning-port) - (lambda () - (newline) - (display ";;; WARNING ") - (display stuff) - (newline) - (car (last-pair stuff))))) + (newline (current-warning-port)) + (display ";;; WARNING " (current-warning-port)) + (display stuff (current-warning-port)) + (newline (current-warning-port)) + (car (last-pair stuff))) |