Eliminate INTEGRATE-PRIMITIVE-PROCEDURES declaration.

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 613dbd477ceddd0ed49f15070afc913f9ddf51bb..107c8bb8ed9624a03dd6f03f4368f1f9816dafbf 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 4.20 1991/08/22 18:17:27 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 4.21 1991/10/01 21:39:07 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -39,4 +39,4 @@ MIT in each case. |#
 (package/system-loader "sf" '() 'QUERY)
 ((package/reference (find-package '(SCODE-OPTIMIZER))
                    'USUAL-INTEGRATIONS/CACHE!))
-(add-system! (make-system "SF" 4 20 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 21 '()))
\ No newline at end of file

diff --git a/v7/src/sf/pardec.scm b/v7/src/sf/pardec.scm
index 3afd1d7079e5518c38a55459354f5db7b92ee333..1eae82140bd8c8c54c4e334788129047884978ea 100644 (file)
--- a/v7/src/sf/pardec.scm
+++ b/v7/src/sf/pardec.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/pardec.scm,v 4.3 1990/06/13 22:19:38 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/pardec.scm,v 4.4 1991/10/01 21:38:26 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -220,24 +220,6 @@ MIT in each case. |#
              'EXPAND
              usual-integrations/expansion-names
              usual-integrations/expansion-values))))
-
-(define-declaration 'INTEGRATE-PRIMITIVE-PROCEDURES false
-  (lambda (block table/cons table specifications)
-    (with-values
-       (lambda ()
-         (let loop ((specifications specifications))
-           (if (null? specifications)
-               (values '() '())
-               (with-values (lambda () (loop (cdr specifications)))
-                 (lambda (names vals)
-                   (with-values
-                       (lambda ()
-                         (parse-primitive-specification block
-                                                        (car specifications)))
-                     (lambda (name value)
-                       (values (cons name names) (cons value vals)))))))))
-      (lambda (names vals)
-       (bind/values table/cons table 'INTEGRATE true names vals)))))
 \f
 #|
 The following are allowed:

diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index d3dd1e9c64ed90952d6a0647388677f65d223f16..69498bf0f216dd75a3d4ea90037aae8f5b3bcd82 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 4.20 1991/08/22 18:17:27 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 4.21 1991/10/01 21:39:07 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -39,4 +39,4 @@ MIT in each case. |#
 (package/system-loader "sf" '() 'QUERY)
 ((package/reference (find-package '(SCODE-OPTIMIZER))
                    'USUAL-INTEGRATIONS/CACHE!))
-(add-system! (make-system "SF" 4 20 '()))
\ No newline at end of file
+(add-system! (make-system "SF" 4 21 '()))
\ No newline at end of file