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

[bugfix] bin/picrin -e option broken

This commit is contained in:
Yuichi Nishiwaki 2015-06-20 02:35:13 +09:00
parent 9dbcb2a605
commit 6449731bf4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/30.main/main.scm
View File

@ -5,6 +5,7 @@
(scheme process-context) (scheme process-context)
(scheme load) (scheme load)
(scheme eval) (scheme eval)
(picrin base)
(picrin repl)) (picrin repl))
(define (print-help) (define (print-help)
@ -40,7 +41,7 @@
(lambda (in) (lambda (in)
(let loop ((expr (read in))) (let loop ((expr (read in)))
(unless (eof-object? expr) (unless (eof-object? expr)
(eval expr '(picrin user)) (eval expr (library-environment (find-library '(picrin user))))
(loop (read in))))))) (loop (read in)))))))
(define (main) (define (main)