~ chicken-core (chicken-5) 720e634bb47e9893302269c10626308b278e8557

commit 720e634bb47e9893302269c10626308b278e8557
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Sep 21 09:27:37 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Sep 21 09:27:37 2011 +0200

    fixed reference to incorrect pair-of type in component-type smashing

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 61971bc4..115b118d 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -812,11 +812,11 @@
 	       (change! (cute set-cdr! (car lst) <>)))
       (when (pair? t)
 	(case (car t)
-	  ((pair-of vector-of)
+	  ((list-of vector-of)
 	   (dd "  smashing `~s' in ~a" (caar lst) where)
-	   (change! (if (eq? 'pair-of (car t)) 'pair 'vector))
+	   (change! (if (eq? 'list-of (car t)) 'list 'vector))
 	   (car t))
-	  ((pair vector)
+	  ((pair vector list)
 	   (dd "  smashing `~s' in ~a" (caar lst) where)
 	   (change! (car t))
 	   (car t))