Merge branch 'master' into prerelease

ursetto · May 10, 2011 · ca0edb1 · ca0edb1
2 parents 198ef5d + 84c222b
commit ca0edb1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/distribution/manifest b/distribution/manifest
@@ -173,6 +173,10 @@ tests/dwindtst.expected
 tests/callback-tests.scm
 tests/reader-tests.scm
 tests/pp-test.scm
+tests/reverser/reverser.meta
+tests/reverser/reverser.setup
+tests/reverser/reverser.scm
+tests/rev-app.scm
 tweaks.scm
 utils.scm
 apply-hack.x86.S

diff --git 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)