summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-01-23 16:05:13 +0100
committerAndy Wingo <wingo@pobox.com>2013-01-23 16:05:13 +0100
commit8026a774a98acde5f9a692e97f38bf5ba6a317b3 (patch)
tree813c37b8d9095c80113e7ded2e1008fc29c5e567
parentfaabd16157f8b55766cf890e79129c066fbc124b (diff)
downloadguile-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.scm2
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))))