~ chicken-core (chicken-5) 0d7d4dec7e266152ca2605bb5433493ac0dd9629

commit 0d7d4dec7e266152ca2605bb5433493ac0dd9629
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Dec 31 01:35:19 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Dec 31 01:35:19 2009 +0100

    fixed typo in NEWS!

diff --git a/NEWS b/NEWS
index df81bf33..a1f244b4 100644
--- a/NEWS
+++ b/NEWS
@@ -4,7 +4,7 @@
   libraries are not binary-compatible with previous releases; this
   means all eggs have to be reinstalled and existing programs be
   recompiled!
-- added unboxing pass to compiler which results in part dramatical
+- added unboxing pass to compiler which results in partially dramatical
   performance improvements for unsafe floating-point-intensive code;
   unboxing is enabled on optimization levels 4 and 5
 - removed rest-argument-vector optimization as it could conflict
diff --git a/optimizer.scm b/optimizer.scm
index 9eacc2cc..8a7320e2 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -1782,7 +1782,8 @@
 	    (when (debugging 'l "accessibles:") (pretty-print al))
 	    (debugging 'p "eliminating liftables by access-lists and non-liftable callees...")
 	    (let ([ls (eliminate3 (eliminate4 g2))]) ;(eliminate2 g2 al)))]) - why isn't this used?
-	      (debugging 'o "liftable local procedures" (delay (unzip1 ls)))
+	      (when (pair? ls)
+		(debugging 'o "liftable local procedures" (delay (unzip1 ls))))
 	      (debugging 'p "gathering extra parameters...")
 	      (let ([extra (compute-extra-variables ls)])
 		(when (debugging 'l "additional parameters:") (pretty-print extra))