Subject: Re: bug#43331: [PATCH] repl: Look for script files in (getcwd).
From: Ludovic Courtès <[email-masked]>
To: Konrad Hinsen <[email-masked]>
Cc: [email-masked]
Date: Wed, 16 Sep 2020 15:35:55 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi,

Konrad Hinsen <[email-masked]> skribis:

> * guix/scripts/repl.scm (guix-repl): Replace "." by (getcwd)
> ---
>  guix/scripts/repl.scm | 2 +-
>  1 file changed, 1 insertion(+), 1 deletion(-)
>
> diff --git a/guix/scripts/repl.scm b/guix/scripts/repl.scm
> index 3c79e89f8d..80bf1460e9 100644
> --- a/guix/scripts/repl.scm
> +++ b/guix/scripts/repl.scm
> @@ -178,7 +178,7 @@ call THUNK."
>         (lambda ()
>           (set-program-arguments script)
>           (set-user-module)
> -         (load-in-vicinity "." (car script)))))
> +         (load-in-vicinity (getcwd) (car script)))))

I added a test and a comment and applied.

Thank you!

Ludo’.