diff options
author | Andy Wingo <wingo@pobox.com> | 2013-01-23 16:05:13 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-23 16:05:13 +0100 |
commit | 8026a774a98acde5f9a692e97f38bf5ba6a317b3 (patch) | |
tree | 813c37b8d9095c80113e7ded2e1008fc29c5e567 | |
parent | faabd16157f8b55766cf890e79129c066fbc124b (diff) | |
download | guile-8026a774a98acde5f9a692e97f38bf5ba6a317b3.tar.gz |
load files from the command line relative to the cwd
* module/ice-9/command-line.scm (load/lang): Load files from the command
line relative to the current working directory (fixes regression).
-rw-r--r-- | module/ice-9/command-line.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/command-line.scm b/module/ice-9/command-line.scm index 13274126b..9f8c9de88 100644 --- a/module/ice-9/command-line.scm +++ b/module/ice-9/command-line.scm @@ -184,7 +184,7 @@ If FILE begins with `-' the -s switch is mandatory. (define (load/lang f) (case (current-language) ((scheme) - (load f)) + (load-in-vicinity (getcwd) f)) (else ((module-ref (resolve-module '(system base compile)) 'compile-file) f #:to 'value)))) |