From c3d776a279b9980df03f7415ce80ae78e5e989d8 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Wed, 27 Nov 2002 07:37:23 +0000 Subject: [PATCH] Removed superfluous saving of s48 ports. They are no longer imported anyway. --- scsh/newports.scm | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/scsh/newports.scm b/scsh/newports.scm index c78be5f..1f1aeae 100644 --- a/scsh/newports.scm +++ b/scsh/newports.scm @@ -471,17 +471,7 @@ current-error-port) -(define old-inport #f) ; Just because. -(define old-outport #f) -(define old-errport #f) - (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 (channel-port->input-fdport (current-input-port))) (set-fluid! $current-output-port