Fix thinko.

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index c4ad415ef634db657e47af75c1f4e30cc2897b82..7bc07a5c55a14ecb2f10ac1d6543d75e7fe3cd3a 100644 (file)
--- a/v7/src/runtime/uenvir.scm
+++ b/v7/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.39 1999/10/23 03:01:29 cph Exp $
+$Id: uenvir.scm,v 14.40 1999/10/23 03:08:00 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -275,7 +275,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (procedure-lambda (select-procedure environment)))
 
 (define (extend-ic-environment environment)
-  (if (not (ic-environment? environment))
+  (if (not (or (system-global-environment? environment)
+              (ic-environment? environment)))
       (illegal-environment environment 'EXTEND-IC-ENVIRONMENT))
   (let ((environment (eval '(let () (the-environment)) environment)))
     (set-environment-syntax-table!

diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm
index 44ccf2cbed42887d88cda1c312d26175af983d9c..64c8f0d294a8b33d92ac9ecd43cc1a0adb2f53ca 100644 (file)
--- a/v8/src/runtime/uenvir.scm
+++ b/v8/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.42 1999/10/23 03:01:24 cph Exp $
+$Id: uenvir.scm,v 14.43 1999/10/23 03:08:03 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -245,7 +245,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (procedure-lambda (select-procedure environment)))
 
 (define (extend-ic-environment environment)
-  (if (not (ic-environment? environment))
+  (if (not (or (system-global-environment? environment)
+              (ic-environment? environment)))
       (illegal-environment environment 'EXTEND-IC-ENVIRONMENT))
   (let ((environment (eval '(let () (the-environment)) environment)))
     (set-environment-syntax-table!