From 6d940aeba0db0550107ed257ff5f572216c8778a Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 1 Jul 2002 18:36:16 +0000 Subject: [PATCH] *** empty log message *** original commit: cfa5a469e75af389ba29a18f47e3301555468d2b --- collects/parser-tools/yacc-to-scheme.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/parser-tools/yacc-to-scheme.ss b/collects/parser-tools/yacc-to-scheme.ss index 03e4aa4..f8067b8 100644 --- 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