~ chicken-core (chicken-5) 1f5ac17f7ac5ea2149960c35153c94d94f5a4a74


commit 1f5ac17f7ac5ea2149960c35153c94d94f5a4a74
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue May 10 08:31:24 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue May 10 08:31:24 2011 +0200

    missing parens reported by kon

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 18bcb775..31e5d87e 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -111,7 +111,7 @@
 	    ((list? lit) 'list)
 	    ((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)))
 	    ((char? lit) 'char)
 	    (else '*)))
Trap