keep (picrin user) empty unless picrin is started in repl mode

contrib/20.r7rs/scheme/r5rs.scm

@@ -8,7 +8,9 @@
           (scheme lazy)
           (scheme eval)
           (scheme load)
-          (picrin base))
+          (only (picrin base)
+                library-environment
+                find-library))
 
   (define-library (scheme null)
     (import (scheme base))

contrib/40.srfi/t/1.scm

@@ -23,7 +23,8 @@
 ;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
 ;; IN THE SOFTWARE. 
 
-(import (srfi 1)
+(import (scheme base)
+        (srfi 1)
         (picrin test))
 
 (test-begin)

contrib/60.repl/repl.scm

@@ -21,7 +21,7 @@
 
   (define user-env (library-environment (find-library '(picrin user))))
 
-  (begin
+  (define (init-env)
     (current-library (find-library '(picrin user)))
     (eval
      '(import (scheme base)
@@ -39,6 +39,7 @@
     (current-library (find-library '(picrin repl))))
 
   (define (repl)
+    (init-env)
     (let loop ((buf ""))
       (let ((line (readline (if (equal? buf "") "> " ""))))
         (if (eof-object? line)

extlib/benz/state.c

@@ -226,8 +226,6 @@ pic_init_core(pic_state *pic)
       pic_panic(pic, "");
     }
   }
-
-  pic_import(pic, pic->PICRIN_BASE);
 }
 
 pic_state *