Add integrate-external declaration.

diff --git a/v7/src/sf/cgen.scm b/v7/src/sf/cgen.scm
index 34b8da7c7de84d975f3df5984e94f71232ffe267..a51ce050c5dab5a7fc20a29f4123fa47c4aa3ead 100644 (file)
--- a/v7/src/sf/cgen.scm
+++ b/v7/src/sf/cgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/cgen.scm,v 3.0 1987/03/10 13:24:42 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/cgen.scm,v 3.1 1987/03/10 14:56:46 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -34,7 +34,8 @@ MIT in each case. |#
 
 ;;;; SCode Optimizer: Generate SCode from Expression
 
-(declare (usual-integrations))
+(declare (usual-integrations)
+        (integrate-external (access integrations package/scode-optimizer)))
 \f
 (define (cgen/external quotation)
   (fluid-let ((flush-declarations? true))

diff --git a/v7/src/sf/copy.scm b/v7/src/sf/copy.scm
index 802c78cbc84fa6419f40ddae5b6bd86ed2ce7859..fae959a51f051204044acab8f1356bfca17d1e5e 100644 (file)
--- a/v7/src/sf/copy.scm
+++ b/v7/src/sf/copy.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/copy.scm,v 3.0 1987/03/10 13:24:44 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/copy.scm,v 3.1 1987/03/10 14:57:17 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -34,7 +34,8 @@ MIT in each case. |#
 
 ;;;; SCode Optimizer: Copy Expression
 
-(declare (usual-integrations))
+(declare (usual-integrations)
+        (integrate-external (access integrations package/scode-optimizer)))
 \f
 (define (copy/external block expression)
   (fluid-let ((root-block block))

diff --git a/v7/src/sf/emodel.scm b/v7/src/sf/emodel.scm
index 02f11b0dd010d5f86e1f6f0cddd188dbc402596c..14b336103d6ee78adbbda953cc959006618fa495 100644 (file)
--- a/v7/src/sf/emodel.scm
+++ b/v7/src/sf/emodel.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/emodel.scm,v 3.0 1987/03/10 13:24:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/emodel.scm,v 3.1 1987/03/10 14:53:32 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -34,7 +34,8 @@ MIT in each case. |#
 
 ;;;; SCode Optimizer: Environment Model
 
-(declare (usual-integrations))
+(declare (usual-integrations)
+        (integrate-external (access integrations package/scode-optimizer)))
 \f
 (define variable/assoc
   (association-procedure eq? variable/name))

diff --git a/v7/src/sf/free.scm b/v7/src/sf/free.scm
index 15644a51c5e69ea8460a00b63ed0b3a432f989d0..33218ecbdae57793ad1aedbb2ca7d00b5719d296 100644 (file)
--- a/v7/src/sf/free.scm
+++ b/v7/src/sf/free.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/free.scm,v 3.0 1987/03/10 13:24:54 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/free.scm,v 3.1 1987/03/10 14:54:17 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -34,7 +34,8 @@ MIT in each case. |#
 
 ;;;; SCode Optimizer: Free Variable Analysis
 
-(declare (usual-integrations))
+(declare (usual-integrations)
+        (integrate-external (access integrations package/scode-optimizer)))
 \f
 (define (free/expressions expressions)
   (if (null? expressions)

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index bd7de5b0dad53d826eb416ee2b425a300aa9bf34..89c61a2a52f22d46c02e051d38da1826e329db79 100644 (file)
--- a/v7/src/sf/make.scm
+++ b/v7/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 3.1 1987/03/10 13:36:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 3.2 1987/03/10 14:54:48 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -93,14 +93,19 @@ MIT in each case. |#
                )
 
               ))
-
+\f
 (in-package package/scode-optimizer
+  (define integrations
+    "$zcomp/source/object")
+
   (define scode-optimizer/system
     (make-environment
       (define :name "SF")
       (define :version 3)
-      (define :modification 0)))
+      (define :modification 1)))
+
   (add-system! scode-optimizer/system)
+
   (scode-optimizer/initialize!))
 
 ;;; end IN-PACKAGE SYSTEM-GLOBAL-ENVIRONMENT

diff --git a/v7/src/sf/subst.scm b/v7/src/sf/subst.scm
index 8c779929d3881091b367f3e7da34f26d33108761..14b7b1fba0c94cd3bf3edb39f85b29984b2ec1a4 100644 (file)
--- a/v7/src/sf/subst.scm
+++ b/v7/src/sf/subst.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/subst.scm,v 3.0 1987/03/10 13:25:18 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/subst.scm,v 3.1 1987/03/10 14:57:38 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -34,7 +34,8 @@ MIT in each case. |#
 
 ;;;; SCode Optimizer: Beta Substitution
 
-(declare (usual-integrations))
+(declare (usual-integrations)
+        (integrate-external (access integrations package/scode-optimizer)))
 \f
 (define (integrate/top-level block expression)
   (let ((operations (operations/bind-block (operations/make) block))

diff --git a/v7/src/sf/xform.scm b/v7/src/sf/xform.scm
index 92be16c01b3ba3d592e57de360dbac71a211c82a..1d2700400f6833b20856176aed124f4f9888ddae 100644 (file)
--- a/v7/src/sf/xform.scm
+++ b/v7/src/sf/xform.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/xform.scm,v 3.0 1987/03/10 13:25:33 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/xform.scm,v 3.1 1987/03/10 14:58:01 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -34,7 +34,8 @@ MIT in each case. |#
 
 ;;;; SCode Optimizer: Transform Input Expression
 
-(declare (usual-integrations))
+(declare (usual-integrations)
+        (integrate-external (access integrations package/scode-optimizer)))
 \f
 ;;; GLOBAL-BLOCK is used to handle (USUAL-INTEGRATIONS), as follows.
 ;;; This declaration refers to a large group of names, which are

diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index a8ea433b296665d7bd871cceb6161449354dfe5f..6c6f56eb482fe441a044ec6aa62bb71ed9bf5db0 100644 (file)
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 3.1 1987/03/10 13:36:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 3.2 1987/03/10 14:54:48 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -93,14 +93,19 @@ MIT in each case. |#
                )
 
               ))
-
+\f
 (in-package package/scode-optimizer
+  (define integrations
+    "$zcomp/source/object")
+
   (define scode-optimizer/system
     (make-environment
       (define :name "SF")
       (define :version 3)
-      (define :modification 0)))
+      (define :modification 1)))
+
   (add-system! scode-optimizer/system)
+
   (scode-optimizer/initialize!))
 
 ;;; end IN-PACKAGE SYSTEM-GLOBAL-ENVIRONMENT