From 49c52fe94c2dfd67e26609e410ce6866bef4d4e0 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 27 Aug 1991 00:52:40 +0000
Subject: [PATCH] Make SF not complain about unused variables.

---
 v7/src/runtime/error.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index 1999a604b..b89359381 100644
--- a/v7/src/runtime/error.scm
+++ b/v7/src/runtime/error.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.19 1991/08/26 20:29:21 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.20 1991/08/27 00:52:40 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1005,6 +1005,7 @@ MIT in each case. |#
 	 condition-type:open-file-error '(FILENAME EXPLANATION)
 	 standard-error-handler
 	 (lambda (pathname explanation)
+	   explanation			; ignored
 	   (string-append
 	    "Expression to yield replacement for file name \""
 	    (if (pathname? pathname)
-- 
2.25.1