diff options
author | Andy Wingo <wingo@pobox.com> | 2011-04-14 16:46:49 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-04-14 16:46:49 +0200 |
commit | 90779ad9a1d8b2533ad8495753677aebf5626571 (patch) | |
tree | 3e2e6ef82209c02e4776a700bab4b50ba19ead90 | |
parent | e07f0a55660b6329089ab88103502094bda2b98e (diff) | |
download | guile-90779ad9a1d8b2533ad8495753677aebf5626571.tar.gz |
fix embarrassing bugs in (ice-9 command-line)
* module/ice-9/command-line.scm (compile-shell-switches): Whoops, fix a
few cases that forgot to loop back to the beginning.
-rw-r--r-- | module/ice-9/command-line.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/module/ice-9/command-line.scm b/module/ice-9/command-line.scm index 9fa7135ae..9797364e4 100644 --- a/module/ice-9/command-line.scm +++ b/module/ice-9/command-line.scm @@ -292,13 +292,16 @@ If FILE begins with `-' the -s switch is mandatory. ;; Do auto-compile on/off now, because the form itself might ;; need this decision. ((string=? arg "--auto-compile") - (set! %load-should-auto-compile #t)) + (set! %load-should-auto-compile #t) + (parse args out)) ((string=? arg "--no-auto-compile") - (set! %load-should-auto-compile #f)) + (set! %load-should-auto-compile #f) + (parse args out)) ((string=? arg "-q") ; don't load user init - (set! inhibit-user-init? #t)) + (set! inhibit-user-init? #t) + (parse args out)) ((string-prefix? "--use-srfi=" arg) (let ((srfis (map (lambda (x) |