~ chicken-core (chicken-5) 8f452b4d663e863ab4d2b605233e51a8db9471a6

commit 8f452b4d663e863ab4d2b605233e51a8db9471a6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Apr 24 09:14:46 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Apr 24 09:14:46 2012 +0200

    applied patch by sjamaan that makes sure smashed lists may still potentially be empty

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 3492a886..697b24f5 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -846,7 +846,7 @@
 	   (car t))
 	  ((list-of list)
 	   (dd "  smashing `~s' in ~a" (caar lst) where)
-	   (change! 'pair)
+	   (change! '(or pair null))
 	   (car t))
 	  ((pair vector)
 	   (dd "  smashing `~s' in ~a" (caar lst) where)