repl: Look for script files in (getcwd).

[jackhill/guix/guix.git] / guix / scripts / repl.scm

diff --git a/guix/scripts/repl.scm b/guix/scripts/repl.scm
index 3c79e89..7d4e474 100644 (file)
--- a/guix/scripts/repl.scm
+++ b/guix/scripts/repl.scm
@@ -178,7 +178,10 @@ call THUNK."
        (lambda ()
          (set-program-arguments script)
          (set-user-module)
-         (load-in-vicinity "." (car script)))))
+
+         ;; When passed a relative file name, 'load-in-vicinity' searches the
+         ;; file in %LOAD-PATH.  Thus, pass (getcwd) instead of ".".
+         (load-in-vicinity (getcwd) (car script)))))
 
     (when (null? script)
       ;; Start REPL