~ chicken-core (chicken-5) f5784674e458eddda0d31c042f02f6e45be8e835


commit f5784674e458eddda0d31c042f02f6e45be8e835
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 16 20:34:48 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon May 16 20:34:48 2011 +0200

    typo in pp-output of lambda-info record

diff --git a/extras.scm b/extras.scm
index 7b0142dc..31309c24 100644
--- a/extras.scm
+++ b/extras.scm
@@ -389,7 +389,7 @@
 	    ((##core#inline "C_lambdainfop" obj)
 	     (out "#<lambda info " col)
 	     (out (##sys#lambda-info->string obj) col)
-	     (out "#>" col) )
+	     (out ">" col) )
 	    (else (out "#<unprintable object>" col)) ) )
 
     (define (pp obj col)
Trap