From 81f3fd0bd278a17c40985fc64e3729a56ee4ba3e Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 19 Apr 2004 23:32:37 +0000 Subject: [PATCH] *** empty log message *** original commit: 0e1b4bcf9180538ec075bbb1f72e57ae444c9db9 --- collects/parser-tools/private-lex/front.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/parser-tools/private-lex/front.ss b/collects/parser-tools/private-lex/front.ss index aa1abb4..11998d8 100644 --- a/collects/parser-tools/private-lex/front.ss +++ b/collects/parser-tools/private-lex/front.ss @@ -135,13 +135,13 @@ (cache (make-cache)) - (re-acts (time (map (lambda (s-re-act) - (cons (->re (car s-re-act) cache) - (cdr s-re-act))) - s-re-acts))) + (re-acts (map (lambda (s-re-act) + (cons (->re (car s-re-act) cache) + (cdr s-re-act))) + s-re-acts)) - (dfa (time (build-dfa re-acts cache)))) + (dfa (build-dfa re-acts cache))) ;(print-dfa dfa) ;(printf "states: ~a~n" (dfa-num-states dfa)) - (values (time (dfa->1d-table dfa)) (dfa-start-state dfa) (dfa->actions dfa) (dfa->no-look dfa)))) + (values (dfa->1d-table dfa) (dfa-start-state dfa) (dfa->actions dfa) (dfa->no-look dfa)))) )