From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 27 Aug 1991 00:52:40 +0000 (+0000)
Subject: Make SF not complain about unused variables.
X-Git-Tag: 20090517-FFI~10293
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=49c52fe94c2dfd67e26609e410ce6866bef4d4e0;p=mit-scheme.git

Make SF not complain about unused variables.
---

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)