v4.0.2.4: logging

svn: r10818 original commit: 9af00fcfb4782168ae583a3d66058095815725e3
16 years ago · 994d7dfcc6
parent e227bc6f7f 8f7def8927
commit 994d7dfcc6
1 changed files with 1 additions and 1 deletions
--- a/collects/algol60/cfg-parser.ss
+++ b/collects/algol60/cfg-parser.ss
@ -686,7 +686,7 @@
 				   #f
 				   "bad grammar clause"
 				   stx
-				   (car #f))]
+				   (car clauses))]
 				 [_else
 				  (loop (cdr clauses)
 					cfg-start