*** empty log message ***

original commit: 2ba12c3e85ed45d45ac8ceaea50af899c841e76b
20 years ago · a70c571026
parent 7af68362b3
commit a70c571026
1 changed files with 4 additions and 2 deletions
--- a/collects/parser-tools/private-lex/front.ss
+++ b/collects/parser-tools/private-lex/front.ss
@ -170,8 +170,10 @@
                     (vector->list x))))
                (vector->list table))
               (length (hash-table-map ht cons)))))
-        (printf "size: ~aKB~n" (/ (* 4.0 (+ 2 num-states (* 2 num-vectors) num-entries
-                                          (* 5 num-different-entries))) 1024)))
+        (printf "~a states, ~aKB~n"
+                num-states
+                (/ (* 4.0 (+ 2 num-states (* 2 num-vectors) num-entries
+                             (* 5 num-different-entries))) 1024)))
      (values table (dfa-start-state dfa) (dfa->actions dfa) (dfa->no-look dfa)
              (unbox disappeared-uses))))
  )