From 0f55af14b30db791a6104977fb677e14bf5ab271 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 1 Oct 1991 21:39:07 +0000 Subject: [PATCH] Eliminate INTEGRATE-PRIMITIVE-PROCEDURES declaration. --- v7/src/sf/make.scm | 4 ++-- v7/src/sf/pardec.scm | 22 ++-------------------- v8/src/sf/make.scm | 4 ++-- 3 files changed, 6 insertions(+), 24 deletions(-) diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm index 613dbd477..107c8bb8e 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 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 3afd1d707..1eae82140 100644 --- 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))))) #| The following are allowed: diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm index d3dd1e9c6..69498bf0f 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 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 -- 2.25.1