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

Removed superfluous saving of s48 ports. They are no longer imported anyway.

This commit is contained in:
mainzelm 2002-11-27 07:37:23 +00:00
parent 2cc6f3f087
commit c3d776a279
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scsh/newports.scm
View File

@ -471,17 +471,7 @@
current-error-port) current-error-port)
(define old-inport #f) ; Just because.
(define old-outport #f)
(define old-errport #f)
(define (init-fdports!) (define (init-fdports!)
(if (not (fdport? (current-input-port)))
(set! old-inport (current-input-port)))
(if (not (fdport? (current-output-port)))
(set! old-outport (current-output-port)))
(if (not (fdport? (current-error-port)))
(set! old-errport (current-error-port)))
(set-fluid! $current-input-port (set-fluid! $current-input-port
(channel-port->input-fdport (current-input-port))) (channel-port->input-fdport (current-input-port)))
(set-fluid! $current-output-port (set-fluid! $current-output-port