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 aae5898b9c2f7a8a52d6da2aa8db3cc6e973e5a3..7c752e419b71cff175450aa74e06a96cce7e2f5b 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.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 a9e71ab6a197f221828810487205f8ebeacdd74c..3bd12abc8a2c04502911701a1505ea8979aa200d 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.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
         ))))