~ chicken-core (chicken-5) 6aec5903e05015a77728d24c97227c209be4ee8c

commit 6aec5903e05015a77728d24c97227c209be4ee8c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 11 23:50:34 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 11 23:50:34 2009 +0100

    fix in unboxing pass (##core#switch default clause)

diff --git a/tests/runtests.sh b/tests/runtests.sh
index f2267793..c5babbb7 100644
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -212,6 +212,7 @@ $compile -e embedded2.scm
 
 echo "======================================== timing compilation ..."
 time $compile compiler.scm -S -O5 -debug pb -v
+echo "executing"
 time ./a.out
 
 echo "======================================== running floating-point benchmark ..."
diff --git a/unboxing.scm b/unboxing.scm
index 59036138..ac1de597 100644
--- a/unboxing.scm
+++ b/unboxing.scm
@@ -326,7 +326,7 @@
 		       (if (eq? r 'none)
 			   (walk (second clauses) dest udest pass2?)
 			   (merge r (walk (second clauses) dest udest pass2?)))))
-		   ((null? (cddr clauses)) 
+		   ((null? (cdr clauses)) 
 		    (merge r (walk (car clauses) dest udest pass2?))) ) )
 
 	      ((##core#call ##core#direct_call)