~ chicken-core (chicken-5) c0a87aa01b4642d49145b9872bd01541e800c8fa

commit c0a87aa01b4642d49145b9872bd01541e800c8fa
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jun 10 14:35:32 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jun 10 14:35:32 2011 +0200

    mark debugging 'x

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 33471ae3..eb685c23 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -699,7 +699,7 @@
 				      (variable-mark dest '##compiler#declared-type)
 				      escaping-procedures
 				      (not unsafe))
-			     (debugging 'x "checks argument-types" dest)
+			     (debugging 'x "checks argument-types" dest) ;XXX
 			     (generate-type-checks! n dest vars inits))
 			   (list
 			    (append
@@ -863,13 +863,13 @@
 
     (let ((rn (walk (first (node-subexpressions node)) '() '() #f #f (list (tag)) #f)))
       (when (and (pair? specialization-statistics)
-		 (debugging 'x "specializations:"))
+		 (debugging 'x "specializations:")) ;XXX
 	(for-each 
 	 (lambda (ss)
 	   (printf "  ~a ~s~%" (cdr ss) (car ss)))
 	 specialization-statistics))
       (when (positive? safe-calls)
-	(debugging 'x "safe calls" safe-calls))
+	(debugging 'x "safe calls" safe-calls)) ;XXX
       rn)))
 
 (define (compatible-types? t1 t2)