From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 10 Mar 1987 14:58:01 +0000 (+0000)
Subject: Add integrate-external declaration.
X-Git-Tag: 20090517-FFI~13683
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=26e1613d4bd170ebf3ba170bc0fa2184805689ec;p=mit-scheme.git

Add integrate-external declaration.
---

diff --git a/v7/src/sf/cgen.scm b/v7/src/sf/cgen.scm
index 34b8da7c7..a51ce050c 100644
--- 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)))
 
 (define (cgen/external quotation)
   (fluid-let ((flush-declarations? true))
diff --git a/v7/src/sf/copy.scm b/v7/src/sf/copy.scm
index 802c78cbc..fae959a51 100644
--- 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)))
 
 (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 02f11b0dd..14b336103 100644
--- 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)))
 
 (define variable/assoc
   (association-procedure eq? variable/name))
diff --git a/v7/src/sf/free.scm b/v7/src/sf/free.scm
index 15644a51c..33218ecbd 100644
--- 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)))
 
 (define (free/expressions expressions)
   (if (null? expressions)
diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index bd7de5b0d..89c61a2a5 100644
--- 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. |#
 		)
 
 	       ))
-
+
 (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 8c779929d..14b7b1fba 100644
--- 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)))
 
 (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 92be16c01..1d2700400 100644
--- 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)))
 
 ;;; 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 a8ea433b2..6c6f56eb4 100644
--- 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. |#
 		)
 
 	       ))
-
+
 (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