fix the other frtime compilation error by commenting out the body of collects/frtime/frtime-opt-lang.rkt

add a TODO to fix the underlying problem and uncomment the module body
This commit is contained in:
Gregory Cooper 2012-09-05 16:45:29 -07:00
parent 1ef42832b3
commit 5e5c564532

View File

@ -2,6 +2,9 @@
;; as well as their lowered equivalents. It doesn't know how to perform
;; optimization, though -- that is left to the frtime-opt module.
(module frtime-opt-lang racket
;; TODO(ghcooper/paddymahoney): Fix the duplicate requires and uncomment the
;; body of this module.
#|
(require (prefix-in frtime: frtime/frtime))
(require (for-syntax racket/base frtime/opt/lowered-equivs))
(require (only-in frtime/frtime-big event-receiver send-event
@ -213,4 +216,5 @@
(frtime:define-struct STRUCT (FIELD ...) . REST)
#,(lowered-equiv-defns #'STRUCT (syntax->list #'(FIELD ...))))]))
(provide (rename-out [my-define-struct define-struct]))
|#
)