Don't generate syntax tables automatically in EXTEND-IC-ENVIRONMENT.
authorChris Hanson <org/chris-hanson/cph>
Tue, 18 Dec 2001 20:49:33 +0000 (20:49 +0000)
committerChris Hanson <org/chris-hanson/cph>
Tue, 18 Dec 2001 20:49:33 +0000 (20:49 +0000)
v7/src/runtime/uenvir.scm

index 8f7a5274855de1129484a8298e8df80bd398f5eb..dd4b0f44d4f995f545de0be9f0603ed3cffc8a15 100644 (file)
@@ -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)))