- (compile form #:from from #:to to #:opts opts
- ;; XXX: Languages other than Scheme may not support having
- ;; a module as the environment, so work around that. See
- ;; also `language-default-environment'.
- #:env (if (eq? from (lookup-language 'scheme))
- (current-module)
- #f))))