As with list/##sys#list.
---
types.db | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/types.db b/types.db
index 2621686..9575a1b 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))))
--
1.7.10.4
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
