~ chicken-core (chicken-5) d71450f19114c94285639e33f0e2fd9aed944687

commit d71450f19114c94285639e33f0e2fd9aed944687
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jun 12 15:36:53 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jun 12 15:36:53 2010 +0200

    get-keyword is not pure

diff --git a/c-platform.scm b/c-platform.scm
index 110f9c1a..a1d0c5f7 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -217,7 +217,7 @@
     fxand fxnot fxior fxxor fxshr fxshl fxodd? fxeven?
     void not-pair? atom? any? u8vector? s8vector? u16vector? s16vector?
     u32vector? s32vector? f32vector? f64vector?
-    locative? get-keyword) )
+    locative?) )
     
 (for-each
  (cut mark-variable <> '##compiler#pure '#t)