From 638016eaa9d1401d71b7bd146f2466121109ae76 Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Thu, 5 Oct 2006 05:44:39 +0000 Subject: [PATCH] Fixed: Change 1.28 removed the check that output ports passed to `port-position' and `set-port-position!' must also be input ports. --- v7/src/runtime/fileio.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/fileio.scm b/v7/src/runtime/fileio.scm index 2233b9856..4ca5b7fee 100644 --- a/v7/src/runtime/fileio.scm +++ b/v7/src/runtime/fileio.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: fileio.scm,v 1.30 2006/10/04 22:38:41 cph Exp $ +$Id: fileio.scm,v 1.31 2006/10/05 05:44:39 savannah-arthur Exp $ Copyright 1991,1993,1994,1995,1996,1999 Massachusetts Institute of Technology Copyright 2001,2004,2005,2006 Massachusetts Institute of Technology @@ -109,8 +109,9 @@ USA. (port-input-buffer port)))) (error:bad-range-argument port caller)) (if (and (output-port? port) - (not (output-buffer-using-binary-denormalizer? - (port-output-buffer port)))) + (or (not (input-port? 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