~ chicken-core (chicken-5) a8d4e8816fdf503284699558670a57c07ae126c6

commit a8d4e8816fdf503284699558670a57c07ae126c6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 23 11:16:39 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 23 11:16:39 2011 +0200

    allow pure as alias for constant declaration (undoc'd)

diff --git a/compiler.scm b/compiler.scm
index b0e04381..15f17f81 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -90,6 +90,8 @@
 ;   ##compiler#unused -> BOOL
 ;   ##compiler#foldable -> BOOL
 ;   ##compiler#pure -> 'standard | 'extended | BOOL
+;   ##compiler#type -> TYPE
+;   ##compiler#declared-type -> BOOL
 
 ; - Source language:
 ;
@@ -1448,7 +1450,7 @@
 	      (warning 
 	       "invalid argument to `inline-limit' declaration"
 	       spec) ) ) )
-       ((constant)
+       ((constant pure)			;XXX "pure" is undocumented
 	(let ((syms (cdr spec)))
 	  (if (every symbol? syms)
 	      (for-each