From 2e2918c83a768203cfd73d36e861259b3fd9dae4 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Tue, 9 Feb 2010 09:13:23 -0800 Subject: [PATCH] Remove declarations INTEGRATE-SAFELY, AUTOMAGIC-INTEGRATIONS, ETA-SUBSTITUTION, and OPEN-BLOCK-OPTIMIZATION. --- src/sf/pardec.scm | 17 ----------------- 1 file changed, 17 deletions(-) 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) -- 2.25.1