[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.0-189-g90779ad

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=90779ad9a1d8b2533ad8495753677aebf5626571

The branch, stable-2.0 has been updated
       via  90779ad9a1d8b2533ad8495753677aebf5626571 (commit)
      from  e07f0a55660b6329089ab88103502094bda2b98e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 90779ad9a1d8b2533ad8495753677aebf5626571
Author: Andy Wingo <address@hidden>
Date:   Thu Apr 14 16:46:49 2011 +0200

    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.

-----------------------------------------------------------------------

Summary of changes:
 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 9fa7135..9797364 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)


hooks/post-receive
-- 
GNU Guile