~ chicken-core (chicken-5) bc364f727b231801fabfea2c562ddf26d21b0e98

commit bc364f727b231801fabfea2c562ddf26d21b0e98
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 19 12:04:01 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 19 12:04:01 2011 +0200

    use x debugging mode for gp message

diff --git a/optimizer.scm b/optimizer.scm
index cf9025b6..c8952ef5 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -242,7 +242,7 @@
 		   ((assq var gae) =>
 		    (lambda (a)
 		      (cond ((cdr a)
-			     (debugging 'o "propagated global variable" var (cdr a))
+			     (debugging 'x "propagated global variable" var (cdr a))
 			     (varnode (cdr a)))
 			    (else (varnode var)))))
 		   (else (varnode var)))))