summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-01-23 16:19:16 +0100
committerAndy Wingo <wingo@pobox.com>2013-01-23 16:19:16 +0100
commit5da51ad78d08c71083b70e6a9205ce937f5438ba (patch)
treed8265f24da117967b4a539ff3b4127a014ebff0f
parent0683c24d323a30de0a44ec754a85af88a48586ea (diff)
parenta20eb9a39be78909b3447aebee9a326de5042d19 (diff)
downloadguile-5da51ad78d08c71083b70e6a9205ce937f5438ba.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
-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