From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 20:49:33 +0000 (+0000)
Subject: Don't generate syntax tables automatically in EXTEND-IC-ENVIRONMENT.
X-Git-Tag: 20090517-FFI~2387
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=93b0d7d18b978f81f79f5c742a8b34fa5a0fbd48;p=mit-scheme.git

Don't generate syntax tables automatically in EXTEND-IC-ENVIRONMENT.
---

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index 8f7a52748..dd4b0f44d 100644
--- a/v7/src/runtime/uenvir.scm
+++ b/v7/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.43 2001/11/02 17:09:51 cph Exp $
+$Id: uenvir.scm,v 14.44 2001/12/18 20:49:33 cph Exp $
 
 Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology
 
@@ -311,14 +311,9 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
     environment))
 
 (define (extend-ic-environment environment)
-  (if (not (or (system-global-environment? environment)
-	       (ic-environment? environment)))
+  (if (not (interpreter-environment? environment))
       (illegal-environment environment 'EXTEND-IC-ENVIRONMENT))
-  (let ((environment (eval '(let () (the-environment)) environment)))
-    (set-environment-syntax-table!
-     environment
-     (make-syntax-table (environment-syntax-table environment)))
-    environment))
+  (eval '(LET () (THE-ENVIRONMENT)) environment))
 
 (define (ic-environment/lambda environment)
   (procedure-lambda (ic-environment/procedure environment)))