From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 24 Feb 2010 00:28:19 +0000 (-0800)
Subject: Remove moribund declarations, add IGNORABLE.  Add package comment.
X-Git-Tag: 20100708-Gtk~156
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=177002d0ef4951042485ce4c526ee1bf5e95e736;p=mit-scheme.git

Remove moribund declarations, add IGNORABLE.  Add package comment.
---

diff --git a/src/runtime/syntax-declaration.scm b/src/runtime/syntax-declaration.scm
index f24339372..19e4bdac5 100644
--- a/src/runtime/syntax-declaration.scm
+++ b/src/runtime/syntax-declaration.scm
@@ -24,6 +24,7 @@ USA.
 |#
 
 ;;;; Declarations
+;;; package: (runtime syntax declaration)
 
 (declare (usual-integrations))
 
@@ -49,18 +50,6 @@ USA.
 
 (define known-declarations '())
 
-(for-each (lambda (keyword)
-	    (define-declaration keyword '()
-	      (lambda (declaration procedure)
-		procedure
-		declaration)))
-	  '(AUTOMAGIC-INTEGRATIONS
-	    NO-AUTOMAGIC-INTEGRATIONS
-	    ETA-SUBSTITUTION
-	    NO-ETA-SUBSTITUTION
-	    OPEN-BLOCK-OPTIMIZATIONS
-	    NO-OPEN-BLOCK-OPTIMIZATIONS))
-
 (for-each (lambda (keyword)
 	    (define-declaration keyword '(* IDENTIFIER)
 	      (lambda (declaration procedure)
@@ -69,10 +58,11 @@ USA.
 	  ;; The names in USUAL-INTEGRATIONS are always global.
 	  '(
 	    USUAL-INTEGRATIONS
+	    IGNORABLE
+	    IGNORE
 	    INTEGRATE
 	    INTEGRATE-OPERATOR
 	    INTEGRATE-SAFELY
-	    IGNORE
 	    TYPE-CHECKS
 	    NO-TYPE-CHECKS
 	    RANGE-CHECKS