*** empty log message ***

original commit: cfa5a469e75af389ba29a18f47e3301555468d2b
22 years ago · 6d940aeba0
parent c15b3d72cc
commit 6d940aeba0
1 changed files with 3 additions and 1 deletions
--- a/collects/parser-tools/yacc-to-scheme.ss
+++ b/collects/parser-tools/yacc-to-scheme.ss
@ -45,7 +45,9 @@
  (define (parse-grammar enter-term enter-empty-term enter-non-term)
    (parser
     (tokens x y)
-     (error error)
+     (error (lambda (tok-ok tok-name tok-value)
+	      (error "Error parsing yacc grammar at token: tok-name with value: tok-value" 'parse-grammar)))
+	       
     (end |%%|)
     (start gram)
     (grammar