From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 23 Oct 1999 03:08:03 +0000 (+0000)
Subject: Fix thinko.
X-Git-Tag: 20090517-FFI~4437
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a8bd3c0be3f7410f1416ee49bbdf3977e80d6f06;p=mit-scheme.git

Fix thinko.
---

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index c4ad415ef..7bc07a5c5 100644
--- 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 44ccf2cbe..64c8f0d29 100644
--- 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!