mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

fix embarrassing bugs in (ice-9 command-line)

Browse source 
* module/ice-9/command-line.scm (compile-shell-switches): Whoops, fix a
  few cases that forgot to loop back to the beginning.
This commit is contained in:
Andy Wingo 2011-04-14 16:46:49 +02:00
parent e07f0a5566
commit 90779ad9a1
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/ice-9/command-line.scm
View file

@ -292,13 +292,16 @@ If FILE begins with `-' the -s switch is mandatory.
;; Do auto-compile on/off now, because the form itself might ;; Do auto-compile on/off now, because the form itself might
;; need this decision. ;; need this decision.
((string=? arg "--auto-compile") ((string=? arg "--auto-compile")
(set! %load-should-auto-compile #t)) (set! %load-should-auto-compile #t)
(parse args out))
((string=? arg "--no-auto-compile") ((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 ((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) ((string-prefix? "--use-srfi=" arg)
(let ((srfis (map (lambda (x) (let ((srfis (map (lambda (x)