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

diff --git a/src/sf/pardec.scm b/src/sf/pardec.scm
index b8ec4bfc93a2b711a8190909fdc21582a032e292..c4451d75de79feefc14a09479fcb4cbe37745222 100644 (file)
--- 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.
 \f
 ;;;; 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)