diff options
Diffstat (limited to 'module/ice-9/boot-9.scm')
| -rw-r--r-- | module/ice-9/boot-9.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 47f0ead60..1d25f63df 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -213,6 +213,8 @@ If there is no handler at all, Guile prints an error and then exits." (define pk peek) +;; Temporary definition; replaced later. +(define current-warning-port current-error-port) (define (warn . stuff) (with-output-to-port (current-error-port) @@ -2907,6 +2909,19 @@ module '(ice-9 q) '(make-q q-length))}." body body* ...))))))) +;;; +;;; Warnings. +;;; + +(define current-warning-port + (make-parameter (current-error-port) + (lambda (x) + (if (output-port? x) + x + (error "expected an output port" x))))) + + + ;;; {Running Repls} ;;; |