*** empty log message ***

original commit: 2b9825793503ab18bb21fa594c6ff9cf2e0e21cd
23 years ago · feeea7c20f
parent 30f960322a
commit feeea7c20f
2 changed files with 3 additions and 3 deletions
--- a/collects/parser-tools/private-yacc/parser-builder.ss
+++ b/collects/parser-tools/private-yacc/parser-builder.ss
@ -175,8 +175,8 @@
                                                        ,(if src-pos
                                                             `(err #t (token-name tok) (token-value tok) (cadr ip) (caddr ip))
                                                             `(err #t (token-name tok) (token-value tok)))
-							(raise-read-error (format "parser: got token of unknown type ~a" (token-name tok)))))))))
+							(raise-read-error (format "parser: got token of unknown type ~a" (token-name tok))
-								
+                                                                          #f #f #f #f #f)))))))
               (lambda (get-token)
                 (let parsing-loop ((stack (list 0))
 				    (ip (get-token)))