*** empty log message ***

original commit: 033caa57923ab58e9511c4a0da558a22eb145e15
22 years ago · 485a7712a4
parent c9ddef8214
commit 485a7712a4
1 changed files with 3 additions and 2 deletions
--- a/collects/parser-tools/yacc-to-scheme.ss
+++ b/collects/parser-tools/yacc-to-scheme.ss
@ -24,8 +24,8 @@
   (digit (- "0" "9"))
   (initial (: (letter) ! $ % & * / < = > ? ^ _ ~ @))
   (subsequent (: (initial) (digit) + - #\. @))
-   (comment (@ /* (* (@ (* (^ *)) (+ *) (^ / *))) */)))
-   
+   (comment (@ /* (* (: (^ *) (@ * (^ /)))) */)))
+
  (define-empty-tokens x
    (EOF PIPE |:| SEMI |%%| %prec))
  (define-tokens y
@ -113,6 +113,7 @@
 	     (hash-table-remove! terms s)
              (hash-table-remove! eterms s)
              (hash-table-put! nterms s #t))))
+      (port-count-lines! i)
      (file-path filename)
      (regexp-match "%%" i)
      (begin0