From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 9 Feb 2010 17:13:23 +0000 (-0800)
Subject: Remove declarations INTEGRATE-SAFELY, AUTOMAGIC-INTEGRATIONS, ETA-SUBSTITUTION, and... 
X-Git-Tag: 20100708-Gtk~168^2~20
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2e2918c83a768203cfd73d36e861259b3fd9dae4;p=mit-scheme.git

Remove declarations INTEGRATE-SAFELY, AUTOMAGIC-INTEGRATIONS, ETA-SUBSTITUTION, and OPEN-BLOCK-OPTIMIZATION.
---

diff --git a/src/sf/pardec.scm b/src/sf/pardec.scm
index b8ec4bfc9..c4451d75d 100644
--- a/src/sf/pardec.scm
+++ b/src/sf/pardec.scm
@@ -239,7 +239,6 @@ USA.
 
 (define-integration-declaration 'INTEGRATE)
 (define-integration-declaration 'INTEGRATE-OPERATOR)
-(define-integration-declaration 'INTEGRATE-SAFELY)
 
 (define-declaration 'INTEGRATE-EXTERNAL
   (lambda (block specifications)
@@ -307,22 +306,6 @@ USA.
 
 ;;;; Flag Declarations
 
-(for-each (lambda (flag)
-	    (define-declaration flag
-	      (lambda (block tail)
-		(if (not (null? tail))
-		    (error "This declaration does not take arguments:"
-			   (cons flag tail)))
-		(if (not (memq flag (block/flags block)))
-		    (set-block/flags! block (cons flag (block/flags block))))
-		'())))
-	  '(AUTOMAGIC-INTEGRATIONS
-	    ETA-SUBSTITUTION
-	    OPEN-BLOCK-OPTIMIZATIONS
-	    NO-AUTOMAGIC-INTEGRATIONS
-	    NO-ETA-SUBSTITUTION
-	    NO-OPEN-BLOCK-OPTIMIZATIONS))
-
 (define-declaration 'IGNORE
   (lambda (block names)
     (for-each (lambda (variable)