16 lines
463 B
Racket
16 lines
463 B
Racket
(module embed-me11-rd mzscheme
|
|
(provide (rename *read-syntax read-syntax)
|
|
(rename *read read))
|
|
|
|
(define (*read port)
|
|
`(module embed-me11 mzscheme
|
|
(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
|
|
(lambda ()
|
|
(printf ,(read port)
|
|
;; Use `getenv' at read time!!!
|
|
,(getenv "ELEVEN")))
|
|
'append)))
|
|
|
|
(define (*read-syntax src port)
|
|
(*read port)))
|