removed call to print-struct

original commit: 7ebbac6ef6286b72851ccfc6d6e4dac30bb33f3a
20 years ago · 0869df1b8f
parent bcbd39f641
commit 0869df1b8f
1 changed files with 1 additions and 1 deletions
--- a/collects/parser-tools/private-lex/deriv.ss
+++ b/collects/parser-tools/private-lex/deriv.ss
@ -160,7 +160,7 @@
      ((null? res) #f)
      ((re-nullable? (caar res)) (cdar res))
      (else (get-final (cdr res)))))
-  (print-struct #t)
+
  (test-block ((c->i char->integer)
               (c (make-cache))
               (r1 (->re #\a c))