Use the regular Racket reader, not TR's.

This commit is contained in:
Vincent St-Amour 2012-11-26 16:34:31 -05:00
parent ca47b1c693
commit a84e04e1e4

View File

@ -3,7 +3,6 @@
(require racket/class racket/gui/base racket/match racket/port racket/list
unstable/syntax racket/sandbox
typed-racket/optimizer/logging
(prefix-in tr: typed-racket/typed-reader)
"logging.rkt" "mzc.rkt")
(provide (struct-out report-entry)
@ -79,7 +78,7 @@
base)
(current-load-relative-directory))]
[read-accept-reader #t])
(void (compile (tr:read-syntax portname input))))))))
(void (compile (read-syntax portname input))))))))
(filter right-file? (reverse log)))