Bugfix, wasn't extracting env from the meta module.

This commit is contained in:
Alex Shinn 2011-12-04 13:13:47 +09:00
parent 3895be298a
commit a991cedec4

View file

@ -93,7 +93,9 @@
(raw? (cond ((memq 'raw?: o) => cadr)
(else (member (get-environment-variable "TERM")
'("emacs" "dumb"))))))
(let lp ((module module) (env env) (meta-env (load-module '(meta))))
(let lp ((module module)
(env env)
(meta-env (module-env (load-module '(meta)))))
(let* ((prompt
(string-append (if module (write-to-string module) "") "> "))
(line