diff options
| author | Konrad Hinsen <konrad.hinsen@fastmail.net> | 2020-09-11 13:13:26 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-09-16 16:04:01 +0200 |
| commit | d7f7ed39be3be926b3c46c0ea15d416c593ef61f (patch) | |
| tree | ac8e59c5e4be19c84aeaf46a98142b21fc9d518f | |
| parent | 7194b63833f3cbcd29a65bae0ecd6876cdb1f197 (diff) | |
| download | guix-d7f7ed39be3be926b3c46c0ea15d416c593ef61f.tar.gz | |
repl: Look for script files in (getcwd).
Fixes <https://bugs.gnu.org/43331>. * guix/scripts/repl.scm (guix-repl): Replace "." by (getcwd) * tests/guix-repl.sh: Add test. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | guix/scripts/repl.scm | 5 | ||||
| -rw-r--r-- | tests/guix-repl.sh | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/guix/scripts/repl.scm b/guix/scripts/repl.scm index 3c79e89f8d..7d4e474e92 100644 --- 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 diff --git a/tests/guix-repl.sh b/tests/guix-repl.sh index e1c2b8241f..d4ebb5f6c6 100644 --- a/tests/guix-repl.sh +++ b/tests/guix-repl.sh @@ -45,6 +45,10 @@ EOF test "`guix repl "$tmpfile"`" = "coreutils" +# Make sure that the file can also be loaded when passed as a relative file +# name. +(cd "$(dirname "$tmpfile")"; test "$(guix repl "$(basename "$tmpfile")")" = "coreutils") + cat > "$module_dir/foo.scm"<<EOF (define-module (foo) |