*** empty log message ***

original commit: 972bfc40f3586c1b8ba72d7455578a958577c748

collects/parser-tools/private-lex/front.ss

@@ -97,5 +97,6 @@
            
            (dfa (build-dfa re-acts cache)))
       ;(print-dfa dfa)
+      ;(printf "states: ~a~n" (dfa-num-states dfa))
       (dfa->table dfa)))
-  )
+  )

collects/parser-tools/private-lex/util.ss

@@ -5,7 +5,7 @@
   
   (define-struct lex-abbrev (abbrev))
   
-  (define-syntax test-block
+  #;(define-syntax test-block
     (syntax-rules ()
       ((_ defs (code right-ans) ...)
        (let* defs
@@ -14,7 +14,7 @@
              (printf "Test failed: ~e gave ~e.  Expected ~e~n"
                      'code real-ans 'right-ans))) ...))))
 
-  #;(define-syntax test-block
+  (define-syntax test-block
     (syntax-rules ()
       ((_ x ...) (void))))
   
@@ -378,4 +378,4 @@
       (else
        (char-for-each-acc f (caar cs) (cdar cs) (cdr cs)))))
   
-    )
+    )