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

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

@ -21,21 +21,22 @@
(define user-env (library-environment (find-library '(picrin user)))) (define user-env (library-environment (find-library '(picrin user))))
(eval (begin
'(import (scheme base) (current-library (find-library '(picrin user)))
(scheme load) (eval
(scheme process-context) '(import (scheme base)
(scheme read) (scheme load)
(scheme write) (scheme process-context)
(scheme file) (scheme read)
(scheme inexact) (scheme write)
(scheme cxr) (scheme file)
(scheme lazy) (scheme inexact)
(scheme time) (scheme cxr)
(picrin macro) (scheme lazy)
(picrin array) (scheme time)
(picrin library)) (picrin macro))
user-env) user-env)
(current-library (find-library '(picrin repl))))
(define (repl) (define (repl)
(let loop ((buf "")) (let loop ((buf ""))