~ chicken-core (chicken-5) 84c222bea54590976c8a68b76f7858b90b4e4cd5


commit 84c222bea54590976c8a68b76f7858b90b4e4cd5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue May 10 11:12:32 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue May 10 11:12:32 2011 +0200

    also added typo fix reported by kon

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 5763099b..99f6840c 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -75,7 +75,7 @@
 	  ((pair? lit) 'pair)
 	  ((eof-object? lit) 'eof)
 	  ((vector? lit) 'vector)
-	  ((and (not (##sys#immediate? lit)) ##sys#generic-structure? lit)
+	  ((and (not (##sys#immediate? lit)) (##sys#generic-structure? lit))
 	   `(struct ,(##sys#slot lit 0)))
 	  ((null? lit) 'null)
 	  ((char? lit) 'char)
Trap