summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-03-06 00:34:59 +0100
committerAndy Wingo <wingo@pobox.com>2012-03-06 00:51:49 +0100
commitf7955da9663804812a914b17459483d376db42aa (patch)
tree5f9112250b3c1942d7da78f5b557f82b8a843410
parentf28dc43c959f74164daf9eeabfdd6ccb19556f60 (diff)
downloadguile-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.scm12
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)))