~ chicken-core (chicken-5) b0a2cb42bd8534ec103a7b1e5e0bc6221b50ded2

commit b0a2cb42bd8534ec103a7b1e5e0bc6221b50ded2
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 15 10:22:33 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 15 10:22:33 2011 +0200

    print parameters when printing compiler nodes

diff --git a/support.scm b/support.scm
index ca0aef72..3398fdbe 100644
--- a/support.scm
+++ b/support.scm
@@ -462,7 +462,7 @@
   (subexpressions node-subexpressions node-subexpressions-set!)) ; (node...)
 
 (define-record-printer (node n out)
-  (fprintf out "#<node ~a>" (node-class n)))
+  (fprintf out "#<node ~a ~a>" (node-class n) (node-parameters n)))
 
 (define (make-node c p s)
   (##sys#make-structure 'node c p s) ) ; this kludge is for allowing the inlined `make-node'