Implement special handling for variables of the form

(ACCESS <name> #F)

These are integrated regardless of the declarations given for the
program.

diff --git a/v7/src/sf/usicon.scm b/v7/src/sf/usicon.scm
index 6d475e222ec67b901c7877fd87df6f52801a79a3..dad905558908d70d5459ebf017ee0d97a9b7fd9b 100644 (file)
--- a/v7/src/sf/usicon.scm
+++ b/v7/src/sf/usicon.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/usicon.scm,v 3.1 1987/03/13 04:14:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/usicon.scm,v 3.2 1987/05/04 23:50:04 cph Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -38,6 +38,7 @@ MIT in each case. |#
 \f
 (define usual-integrations/constant-names)
 (define usual-integrations/constant-values)
+(define usual-integrations/constant-alist)
 
 (define (usual-integrations/delete-constant! name)
   (set! global-constant-objects (delq! name global-constant-objects))
@@ -54,6 +55,12 @@ MIT in each case. |#
                     (error "USUAL-INTEGRATIONS: not a constant" name))
                 (constant->integration-info object)))
             usual-integrations/constant-names))
+  (set! usual-integrations/constant-alist
+       (map (lambda (name)
+              (cons name
+                    (constant/make
+                     (lexical-reference system-global-environment name))))
+            usual-integrations/constant-names))
   'DONE)
 
 (define (constant->integration-info constant)

diff --git a/v7/src/sf/usiexp.scm b/v7/src/sf/usiexp.scm
index d9ced17da17da0a64929ecab4e13dfa3266dfbe6..a522e750d4a612418febb1d335b1cc3711d86a42 100644 (file)
--- a/v7/src/sf/usiexp.scm
+++ b/v7/src/sf/usiexp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/usiexp.scm,v 3.0 1987/03/10 13:25:31 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/usiexp.scm,v 3.1 1987/05/04 23:50:20 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -304,4 +304,9 @@ MIT in each case. |#
        second-expansion third-expansion fourth-expansion fifth-expansion
        sixth-expansion seventh-expansion eighth-expansion
        make-string-expansion identity-procedure-expansion
+       ))
+
+(define usual-integrations/expansion-alist
+  (map cons
+       usual-integrations/expansion-names
        usual-integrations/expansion-values))
\ No newline at end of file