From a70c57102655afab94822d57f5041f48affb5160 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Tue, 14 Dec 2004 00:51:55 +0000 Subject: [PATCH] *** empty log message *** original commit: 2ba12c3e85ed45d45ac8ceaea50af899c841e76b --- collects/parser-tools/private-lex/front.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/private-lex/front.ss b/collects/parser-tools/private-lex/front.ss index 881de67..35a2513 100644 --- 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)))) )