From 485a7712a46585943a5050a1b4758a82dd455c2a Mon Sep 17 00:00:00 2001
From: Scott Owens <sowens@cs.utah.edu>
Date: Wed, 3 Jul 2002 22:06:22 +0000
Subject: [PATCH] *** empty log message ***

original commit: 033caa57923ab58e9511c4a0da558a22eb145e15
---
 collects/parser-tools/yacc-to-scheme.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/parser-tools/yacc-to-scheme.ss b/collects/parser-tools/yacc-to-scheme.ss
index a1ce625..135bfbd 100644
--- 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