From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 9 May 1987 00:51:39 +0000 (+0000)
Subject: Exclude error-procedure combinations from the error generated by
X-Git-Tag: 20090517-FFI~13537
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1e5e61a519d1572c0d46caffc4adaaff3dce6df0;p=mit-scheme.git

Exclude error-procedure combinations from the error generated by
encountering the-environment expressions.  Delete `package/safe?'.
---

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index aae5898b9..7c752e419 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.6 1987/05/08 02:48:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 3.7 1987/05/09 00:51:39 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -51,7 +51,6 @@ MIT in each case. |#
     (define package/declarations (make-environment))
     (define package/copy	(make-environment))
     (define package/free	(make-environment))
-    (define package/safe?	(make-environment))
     (define package/change-type	(make-environment))))
 
 (in-package package/scode-optimizer
@@ -60,7 +59,7 @@ MIT in each case. |#
     (make-environment
       (define :name "SF")
       (define :version 3)
-      (define :modification 6)
+      (define :modification 7)
       (define :files)
 
       (define :files-lists
@@ -91,8 +90,6 @@ MIT in each case. |#
 	       '("copy.bin"))		;Copy Expressions
 	 (cons package/free
 	       '("free.bin"))		;Free Variable Analysis
-	 (cons package/safe?
-	       '("safep.bin"))		;Safety Analysis
 	 (cons package/change-type
 	       '("chtype.bin"))		;Type interning
 	 ))))
diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index a9e71ab6a..3bd12abc8 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.6 1987/05/08 02:48:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 3.7 1987/05/09 00:51:39 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -51,7 +51,6 @@ MIT in each case. |#
     (define package/declarations (make-environment))
     (define package/copy	(make-environment))
     (define package/free	(make-environment))
-    (define package/safe?	(make-environment))
     (define package/change-type	(make-environment))))
 
 (in-package package/scode-optimizer
@@ -60,7 +59,7 @@ MIT in each case. |#
     (make-environment
       (define :name "SF")
       (define :version 3)
-      (define :modification 6)
+      (define :modification 7)
       (define :files)
 
       (define :files-lists
@@ -91,8 +90,6 @@ MIT in each case. |#
 	       '("copy.bin"))		;Copy Expressions
 	 (cons package/free
 	       '("free.bin"))		;Free Variable Analysis
-	 (cons package/safe?
-	       '("safep.bin"))		;Safety Analysis
 	 (cons package/change-type
 	       '("chtype.bin"))		;Type interning
 	 ))))