From 6449731bf47d7a94eef47831a5932f3ed16e5fa8 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 20 Jun 2015 02:35:13 +0900
Subject: [PATCH] [bugfix] bin/picrin -e option broken

---
 contrib/30.main/main.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/contrib/30.main/main.scm b/contrib/30.main/main.scm
index 92dba342..35ecd522 100644
--- a/contrib/30.main/main.scm
+++ b/contrib/30.main/main.scm
@@ -5,6 +5,7 @@
           (scheme process-context)
           (scheme load)
           (scheme eval)
+          (picrin base)
           (picrin repl))
 
   (define (print-help)
@@ -40,7 +41,7 @@
       (lambda (in)
         (let loop ((expr (read in)))
           (unless (eof-object? expr)
-            (eval expr '(picrin user))
+            (eval expr (library-environment (find-library '(picrin user))))
             (loop (read in)))))))
 
   (define (main)