*** empty log message ***

original commit: 697bd99ec9350e4b9d1f88637943201846d67f26
23 years ago · db27e8da16
parent f8dba93faa
commit db27e8da16
1 changed files with 2 additions and 2 deletions
--- 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) (@ "{" (* (^ "}")) "}")) (without-src-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)))))
@ -129,4 +129,4 @@
              (error ___)
              (tokens t et)
              (grammar ,@gram))))
-            (close-input-port i)))))
+            (close-input-port i)))))