[Scsh-checkins] CVS: scsh-0.6/scsh newports.scm,1.13,1.14

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv28236

Modified Files:
        newports.scm 
Log Message:
Let current-noise-port default to current-error port.
You won't get warnings from the type-checker or the modul system otherwise...


Index: newports.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/newports.scm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** newports.scm        2001/09/07 16:05:31     1.13
--- newports.scm        2001/09/12 15:11:42     1.14
***************
*** 480,484 ****
    (set-fluid! $current-error-port  
              (channel-port->unbuffered-output-fdport (current-error-port)))
!   (set-fluid! $current-noise-port  (make-null-output-port)))
  
  ;;; Generic port operations
--- 480,485 ----
    (set-fluid! $current-error-port  
              (channel-port->unbuffered-output-fdport (current-error-port)))
!   (set-fluid! $current-noise-port 
!             (fluid $current-error-port)))
  
  ;;; Generic port operations