From 483525f1f0f701974c2c5dd13877d8da0c410a22 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 16 Apr 2000 02:02:31 +0000 Subject: [PATCH] * r4rs.scm (close-input-port, close-output-port): Removed. --- ice-9/r4rs.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/ice-9/r4rs.scm b/ice-9/r4rs.scm index f4cd2c9e9..c820ffbc0 100644 --- a/ice-9/r4rs.scm +++ b/ice-9/r4rs.scm @@ -1,7 +1,7 @@ ;;;; r4rs.scm --- definitions needed for libguile to be R4RS compliant ;;;; Jim Blandy --- October 1996 -;;;; Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc. +;;;; Copyright (C) 1996, 1997, 1998, 2000 Free Software Foundation, Inc. ;;;; ;;;; 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 @@ -71,8 +71,6 @@ file with the given name already exists, the effect is unspecified." "Open file with name STR for both input and output." (open-file str OPEN_BOTH)) -(define close-input-port close-port) -(define close-output-port close-port) (define close-io-port close-port) (define (call-with-input-file str proc) -- 2.20.1