[bugfix] repl failed to import default libraries

contrib/20.repl/repl.scm

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