From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 May 1987 23:50:20 +0000 (+0000)
Subject: Implement special handling for variables of the form
X-Git-Tag: 20090517-FFI~13560
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aacf599e5541d01c96219f22f0a9a5db7d301778;p=mit-scheme.git

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 6d475e222..dad905558 100644
--- 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. |#
 
 (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 d9ced17da..a522e750d 100644
--- 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