scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

You won't get warnings from the type-checker or the modul system otherwise...
This commit is contained in:
mainzelm 2001-09-12 15:11:42 +00:00
parent f4bd5dfa85
commit c47a141356
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/newports.scm
View File

@ -479,7 +479,8 @@
(set-fluid! $current-error-port (set-fluid! $current-error-port
(channel-port->unbuffered-output-fdport (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 ;;; Generic port operations
;;; ----------------------- ;;; -----------------------