From 177002d0ef4951042485ce4c526ee1bf5e95e736 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Tue, 23 Feb 2010 16:28:19 -0800 Subject: [PATCH] Remove moribund declarations, add IGNORABLE. Add package comment. --- src/runtime/syntax-declaration.scm | 16 +++------------- 1 file changed, 3 insertions(+), 13 deletions(-) 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 -- 2.25.1