summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-01-23 16:11:31 +0100
committerAndy Wingo <wingo@pobox.com>2013-01-23 16:11:31 +0100
commita20eb9a39be78909b3447aebee9a326de5042d19 (patch)
treed5d95418235494ce1f6f59df52c088806a7b9b60
parent8026a774a98acde5f9a692e97f38bf5ba6a317b3 (diff)
downloadguile-a20eb9a39be78909b3447aebee9a326de5042d19.tar.gz
fix regression in -l
* module/ice-9/command-line.scm (compile-shell-switches): Fix regression with -l argument, which was loading arg0 instead.
-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 9f8c9de88..2aa50ec80 100644
--- a/module/ice-9/command-line.scm
+++ b/module/ice-9/command-line.scm
@@ -254,7 +254,7 @@ If FILE begins with `-' the -s switch is mandatory.
(if (null? args)
(error "missing argument to `-l' switch"))
(parse (cdr args)
- (cons `((@@ (ice-9 command-line) load/lang) ,arg0)
+ (cons `((@@ (ice-9 command-line) load/lang) ,(car args))
out)))
((string=? arg "-L") ; add to %load-path