From 1ecf4c581c8d3f34bf2b25cda5e9a73f19bf5e54 Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Mon, 11 Dec 2006 07:37:46 +0000 Subject: [PATCH] Reverted change 1.30-1.31, which was supposed to require that output ports passed to `port-position' and `set-port-positon!' also be input ports. This restriction was unnecessary and the change had a bug anyway. --- v7/src/runtime/fileio.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/fileio.scm b/v7/src/runtime/fileio.scm index 4ca5b7fee..dfd5eee8a 100644 --- a/v7/src/runtime/fileio.scm +++ b/v7/src/runtime/fileio.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: fileio.scm,v 1.31 2006/10/05 05:44:39 savannah-arthur Exp $ +$Id: fileio.scm,v 1.32 2006/12/11 07:37:46 savannah-arthur Exp $ Copyright 1991,1993,1994,1995,1996,1999 Massachusetts Institute of Technology Copyright 2001,2004,2005,2006 Massachusetts Institute of Technology @@ -109,9 +109,8 @@ USA. (port-input-buffer port)))) (error:bad-range-argument port caller)) (if (and (output-port? port) - (or (not (input-port? port)) - (not (output-buffer-using-binary-denormalizer? - (port-output-buffer port))))) + (not (output-buffer-using-binary-denormalizer? + (port-output-buffer port)))) (error:bad-range-argument port caller))) (define (open-input-file filename) -- 2.25.1