From 3c07ebb50f3eff3c8adba603865f95fd3181996d Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 11 Sep 2002 14:38:56 +0000
Subject: [PATCH] PROTECT-PORT-OP saves the return value of CLOSE so better
 return (if #f #f) than (values).

---
 scheme/big/more-port.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/big/more-port.scm b/scheme/big/more-port.scm
index 38c205c..a30a4b4 100644
--- a/scheme/big/more-port.scm
+++ b/scheme/big/more-port.scm
@@ -182,7 +182,7 @@
    (lambda (ignore)
      (list 'string-input-port))
    (lambda (ignore)
-     (values))
+     (if #f #f))
    (lambda (ignore buffer start needed)
      (eof-object))
    (lambda (port) #f)))