~ chicken-core (chicken-5) a7df13bd78fe9da4dcdf27286d3a57b58f44998a
commit a7df13bd78fe9da4dcdf27286d3a57b58f44998a Author: felix <felix@call-with-current-continuation.org> AuthorDate: Tue May 10 08:29:01 2011 +0200 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Tue May 10 08:29:01 2011 +0200 missing parens 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