diff options
author | Andy Wingo <wingo@pobox.com> | 2013-01-23 16:11:31 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-23 16:11:31 +0100 |
commit | a20eb9a39be78909b3447aebee9a326de5042d19 (patch) | |
tree | d5d95418235494ce1f6f59df52c088806a7b9b60 | |
parent | 8026a774a98acde5f9a692e97f38bf5ba6a317b3 (diff) | |
download | guile-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.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 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 |