Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Alex Shinn 2011-12-04 13:13:47 +09:00
parent 3895be298a
commit a991cedec4
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/repl.scm
View file

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