12 lines
311 B
Racket
12 lines
311 B
Racket
(module zo-compile mzscheme
|
|
(require "errortrace-lib.rkt")
|
|
|
|
(provide zo-compile)
|
|
|
|
(define zo-compile
|
|
(let ([orig (current-compile)])
|
|
(lambda (stx immediate-eval?)
|
|
(if (null? (use-compiled-file-paths))
|
|
(orig stx immediate-eval?)
|
|
(orig (errortrace-annotate stx) immediate-eval?))))))
|