Fix think-o that resulted in unused variable.

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index 2789332fdb09419ca2ff7d5e4c057a7089dc89ab..e3f6728ea5b9795168a2b31a76a86efc1a9fd4ce 100644 (file)
--- 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))