~ chicken-core (chicken-5) d161b3fe5c12947022ffbc082f80772ea8abe514

commit d161b3fe5c12947022ffbc082f80772ea8abe514
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Aug 13 04:01:43 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Aug 13 04:01:43 2010 -0400

    when frame-info is #f, don't show in call-trace

diff --git a/library.scm b/library.scm
index f28e7d91..ae11f74b 100644
--- a/library.scm
+++ b/library.scm
@@ -3401,7 +3401,7 @@ EOF
 	 (##sys#print "\n\t" #f port)
 	 (##sys#print (##sys#slot info 0) #f port) ; raw (mode)
 	 (##sys#print "\t  " #f port)
-	 (when more2
+	 (when (and more2 (if fi (##sys#slot more2 1)))
 	   (##sys#write-char-0 #\[ port)
 	   (##sys#print 
 	    (if fi