~ chicken-core (chicken-5) ef4e7acd2a62f7f8ab81193653799fbffe085c00

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

    purity/impurity is declared in types.db (in a way that still has to be figured out), so remove it from c-platform.scm

diff --git a/c-platform.scm b/c-platform.scm
index 50f43325..0765c175 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -223,21 +223,6 @@
    (lset-union eq? default-standard-bindings default-extended-bindings)
    non-foldable-bindings) )
 
-(for-each
- (cut mark-variable <> '##compiler#pure 'standard)
- '(not boolean? eq? eqv? equal? pair? null? list? zero?
-       char? eof-object? symbol? number? complex? real? integer? rational? string?
-       procedure?))
- 
-(for-each
- (cut mark-variable <> '##compiler#pure 'extended)
- '(fx+ fx- fx* fx/ fxmod fx+? fx*? fx/? fx-?
-       fx= fx> fx< fx>= fx<= fixnum? fxneg fxmax fxmin identity
-    fxand fxnot fxior fxxor fxshr fxshl fxodd? fxeven?
-    void not-pair? atom? any? u8vector? s8vector? u16vector? s16vector?
-    u32vector? s32vector? f32vector? f64vector?
-    locative?) )
-    
 (for-each
  (cut mark-variable <> '##compiler#pure '#t)
  '(##sys#slot ##sys#block-ref ##sys#size ##sys#byte