[Chicken-hackers] [PATCH] Evaluate length/##sys#length subforms when specializing for null

[Evan Hanson]

---
 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