From 9b701c8a335e438cfc52aee8bbbb97294c11e96e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Feb 2001 17:20:35 +0000
Subject: [PATCH] Change current I/O ports to default to cmdl port, as is done
 with other ports.

---
 v7/src/runtime/port.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/port.scm b/v7/src/runtime/port.scm
index fd1e31430..be4df45f9 100644
--- a/v7/src/runtime/port.scm
+++ b/v7/src/runtime/port.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: port.scm,v 1.19 1999/02/25 18:23:55 cph Exp $
+$Id: port.scm,v 1.20 2001/02/27 17:20:35 cph Exp $
 
-Copyright (c) 1991-1999 Massachusetts Institute of Technology
+Copyright (c) 1991-2001 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -630,7 +630,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define *interaction-i/o-port* #f)
 
 (define (current-input-port)
-  *current-input-port*)
+  (or *current-input-port* (nearest-cmdl/port)))
 
 (define (set-current-input-port! port)
   (set! *current-input-port* (guarantee-input-port port))
@@ -641,7 +641,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     (thunk)))
 
 (define (current-output-port)
-  *current-output-port*)
+  (or *current-output-port* (nearest-cmdl/port)))
 
 (define (set-current-output-port! port)
   (set! *current-output-port* (guarantee-output-port port))
-- 
2.25.1