From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Oct 1994 21:00:10 +0000 (+0000)
Subject: Fix think-o that resulted in unused variable.
X-Git-Tag: 20090517-FFI~7076
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f3afd9a83389e58d99fc380f19444d5e7594cf12;p=mit-scheme.git

Fix think-o that resulted in unused variable.
---

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index 2789332fd..e3f6728ea 100644
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: option.scm,v 14.31 1994/10/08 08:56:09 cph Exp $
+$Id: option.scm,v 14.32 1994/10/11 21:00:10 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -67,7 +67,7 @@ MIT in each case. |#
     (define (find-option)
       (cond ((assq name *options*) => load-entry)
 	    ((force* *parent*)     => search-parent)
-	    (else (error "Unknown option name:" name))))
+	    ((not no-error?) (error "Unknown option name:" name))))
 
     (define (load-entry entry)
       (for-each (lambda (thunk) (thunk)) (cdr entry))