Let current-noise-port default to current-error port.

You won't get warnings from the type-checker or the modul system otherwise...
2001-09-12 15:11:42 +00:00 · 2001-09-12 15:11:42 +00:00 · c47a141356
parent f4bd5dfa85
commit c47a141356
1 changed files with 2 additions and 1 deletions
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@ -479,7 +479,8 @@
  
  (set-fluid! $current-error-port  
 	      (channel-port->unbuffered-output-fdport (current-error-port)))
-  (set-fluid! $current-noise-port  (make-null-output-port)))
+  (set-fluid! $current-noise-port 
+	      (fluid $current-error-port)))

 ;;; Generic port operations
 ;;; -----------------------