---
types.db | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/types.db b/types.db
index 2621686..2b6c85b 100644
--- a/types.db
+++ b/types.db
@@ -156,11 +156,11 @@
(##sys#list (#(procedure #:pure) ##sys#list (#!rest) list))
(length (#(procedure #:clean #:enforce) length (list) fixnum) ; may loop
- ((null) '0)
+ ((null) (let ((#(tmp) #(1))) '0))
((list) (##core#inline "C_u_i_length" #(1))))
(##sys#length (#(procedure #:clean #:enforce) ##sys#length (list) fixnum)
- ((null) '0)
+ ((null) (let ((#(tmp) #(1))) '0))
((list) (##core#inline "C_u_i_length" #(1))))
;; these are special cased (see scrutinizer.scm)
--
1.7.10.4
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
