~ chicken-core (chicken-5) 7af0014e60c087292acd7aef59ccfb17a83a0afe

commit 7af0014e60c087292acd7aef59ccfb17a83a0afe
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Sep 9 21:47:45 2014 +1200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Wed Sep 10 09:48:00 2014 +0200

    Mark vector and ##sys#vector as pure
    
    As with list/##sys#list.
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/types.db b/types.db
index 2b6c85b9..6a202dd9 100644
--- a/types.db
+++ b/types.db
@@ -571,8 +571,8 @@
 (vector-set! (#(procedure #:enforce) vector-set! (vector fixnum *) undefined))
 
 ;; special cased (see scrutinizer.scm)
-(vector (#(procedure #:clean #:clean) vector (#!rest) vector))
-(##sys#vector (#(procedure #:clean #:clean) ##sys#vector (#!rest) vector))
+(vector (#(procedure #:pure) vector (#!rest) vector))
+(##sys#vector (#(procedure #:pure) ##sys#vector (#!rest) vector))
 
 (vector-length (#(procedure #:clean #:enforce) vector-length (vector) fixnum)
 	       ((vector) (##sys#size #(1))))