Remove moribund declarations, add IGNORABLE. Add package comment.
authorJoe Marshall <jmarshall@alum.mit.edu>
Wed, 24 Feb 2010 00:28:19 +0000 (16:28 -0800)
committerJoe Marshall <jmarshall@alum.mit.edu>
Wed, 24 Feb 2010 00:28:19 +0000 (16:28 -0800)
src/runtime/syntax-declaration.scm

index f24339372696e566206b11c4d8e16cd7d5aa0534..19e4bdac50247edb9c4cddf4bd4e7525d2c2a4ea 100644 (file)
@@ -24,6 +24,7 @@ USA.
 |#
 
 ;;;; Declarations
+;;; package: (runtime syntax declaration)
 
 (declare (usual-integrations))
 \f
@@ -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