[Scsh-checkins] CVS: scsh-0.6/scsh top.scm,1.15,1.16

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

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

Modified Files:
        top.scm 
Log Message:
Set $current-noise-port to null-output-port during switch evaluation.


Index: top.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/top.scm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** top.scm     2001/09/12 14:29:03     1.15
--- top.scm     2001/10/03 09:00:28     1.16
***************
*** 32,39 ****
  
  (define (load-quietly filename p)
!   (load-into filename p))
  
  (define (really-ensure-loaded noise . structs)
!   (apply ensure-loaded structs))
                      
  ;;; The switches:
--- 32,42 ----
  
  (define (load-quietly filename p)
!   (let-fluid $current-noise-port (make-null-output-port)
!            (lambda () (load-into filename p))))
  
  (define (really-ensure-loaded noise . structs)
!   (let-fluid $current-noise-port (make-null-output-port)
!            (lambda ()
!              (apply ensure-loaded structs))))
                      
  ;;; The switches: