*** empty log message ***

original commit: 0e1b4bcf9180538ec075bbb1f72e57ae444c9db9
21 years ago · 81f3fd0bd2
parent 519b6f80a3
commit 81f3fd0bd2
1 changed files with 6 additions and 6 deletions
--- 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))))
  )