From c9ddef821473b57774408576465f51f96f0e4f3e Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 1 Jul 2002 18:53:55 +0000 Subject: [PATCH] *** empty log message *** original commit: e803855a5dfcc51e7ed7c31618498a300213df64 --- collects/parser-tools/yacc-to-scheme.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/parser-tools/yacc-to-scheme.ss b/collects/parser-tools/yacc-to-scheme.ss index d799615..a1ce625 100644 --- a/collects/parser-tools/yacc-to-scheme.ss +++ b/collects/parser-tools/yacc-to-scheme.ss @@ -37,7 +37,7 @@ ((: ":") (string->symbol lexeme)) (%prec (string->symbol lexeme)) (#\| 'PIPE) - ((: #\newline #\tab " " (comment) (@ "{" (* (^ "}")) "}")) (return-without-pos (get-token-grammar input-port))) + ((+ (: #\newline #\tab " " (comment) (@ "{" (* (^ "}")) "}"))) (return-without-pos (get-token-grammar input-port))) (#\; 'SEMI) (#\' (token-STRING (string->symbol (list->string (match-single-string input-port))))) (#\" (token-STRING (string->symbol (list->string (match-double-string input-port)))))