~ chicken-core (chicken-5) 24404892d5cafcc29b7b967f9f127285faa921b9

commit 24404892d5cafcc29b7b967f9f127285faa921b9
Author:     felix <felix@y.(none)>
AuthorDate: Sat Jul 24 12:07:19 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Sat Jul 24 12:07:19 2010 +0200

    csi: ,c skips empty lexical envs

diff --git a/csi.scm b/csi.scm
index 188f1b25..6a8d94d2 100644
--- a/csi.scm
+++ b/csi.scm
@@ -764,13 +764,14 @@ EOF
 	    (when (and here finfo)
 	      (for-each
 	       (lambda (e v)
-		 (display "  ---\n")
-		 (do ((i 0 (fx+ i 1))
-		      (be e (cdr be)))
-		     ((null? be))
-		   (printf "  ~s:\t  " (car be))
-		   (prin1 (##sys#slot v i))
-		   (newline)))
+		 (unless (null? e)
+		   (display "  ---\n")
+		   (do ((i 0 (fx+ i 1))
+			(be e (cdr be)))
+		       ((null? be))
+		     (printf "  ~s:\t  " (car be))
+		     (prin1 (##sys#slot v i))
+		     (newline))))
 	       (##sys#slot data 2)	   ; e
 	       (##sys#slot data 3)))))))))	   ; v