conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[bugfix] repl failed to import default libraries

This commit is contained in:
Yuichi Nishiwaki 2015-06-20 02:34:46 +09:00
parent a0323bd5fc
commit 9dbcb2a605
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/20.repl/repl.scm
View File

@ -21,6 +21,8 @@
(define user-env (library-environment (find-library '(picrin user)))) (define user-env (library-environment (find-library '(picrin user))))
(begin
(current-library (find-library '(picrin user)))
(eval (eval
'(import (scheme base) '(import (scheme base)
(scheme load) (scheme load)
@ -32,10 +34,9 @@
(scheme cxr) (scheme cxr)
(scheme lazy) (scheme lazy)
(scheme time) (scheme time)
(picrin macro) (picrin macro))
(picrin array)
(picrin library))
user-env) user-env)
(current-library (find-library '(picrin repl))))
(define (repl) (define (repl)
(let loop ((buf "")) (let loop ((buf ""))