~ chicken-core (chicken-5) 66bfb33182307f62f2a89af346eea1849f128552

commit 66bfb33182307f62f2a89af346eea1849f128552
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Sep 7 08:49:21 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Sep 7 08:49:21 2011 +0200

    trivial changes

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 3ed1aac2..fa1c1a13 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -723,7 +723,7 @@
 						 var
 						 '##compiler#special-result-type))
 					   => (lambda (srt)
-						(dd "  hardcoded special case: ~a" var)
+						(dd "  hardcoded special result-type: ~a" var)
 						(set! r (srt n r))))))))
 			      subs
 			      (cons 
@@ -1913,7 +1913,7 @@
 		 (and (eq? 'quote (node-class arg1))
 		      (let ((val (first (node-parameters arg1))))
 			(and (symbol? val)
-			     ;;XXX a bit of a hack - we should remove the distinct
+			     ;;XXX a dirty hack - we should remove the distinct
 			     ;;    "pointer-vector" type.
 			     (if (eq? 'pointer-vector val)
 				 '(pointer-vector)