~ chicken-core (chicken-5) a92291a34179c68cc939750951297524c8b2e150

commit a92291a34179c68cc939750951297524c8b2e150
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Apr 10 14:15:11 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Apr 10 14:15:11 2011 +0200

    trivial debug output change

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 3b23fd78..4c6a8e35 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -697,7 +697,7 @@
 		      (and-let* ((val (or (get db var 'value)
 					  (get db var 'local-value))))
 			(when (eq? val (first subs))
-			  (debugging 'x (sprintf "~a : ~a" var rt))
+			  (debugging 'x (sprintf "(: ~s ~s)" var rt))
 			  (mark-variable var '##compiler#declared-type)
 			  (mark-variable var '##compiler#type rt))))
 		    (when b