[Guile-commits] GNU Guile branch, master, updated. release_1-9-5-206-gdd90269

[Ludovic Courtès]

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=dd902692fd307096121f32cfde135389c625ef78

The branch, master has been updated
       via  dd902692fd307096121f32cfde135389c625ef78 (commit)
      from  056905c3cf12f10bc1ac02826dc7d270cfc0b428 (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 dd902692fd307096121f32cfde135389c625ef78
Author: Ludovic Courtès <address@hidden>
Date:   Fri Dec 11 14:56:49 2009 +0100

    Fix expansion of `(+ 1 x)'.
    
    * module/language/tree-il/primitives.scm (+): Fix typo.

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

Summary of changes:
 module/language/tree-il/primitives.scm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/module/language/tree-il/primitives.scm 
b/module/language/tree-il/primitives.scm
index bfe9af5..83eab6f 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -219,12 +219,12 @@
                    (and (number? y) (exact? y) (= y 1))))
             (1+ x)
             (if (and (const? y)
-                 (let ((y (const-exp y)))
-                   (and (number? y) (exact? y) (= y -1))))
+                     (let ((y (const-exp y)))
+                       (and (number? y) (exact? y) (= y -1))))
                 (1- x)
                 (if (and (const? x)
                          (let ((x (const-exp x)))
-                           (and (number? y) (exact? x) (= x 1))))
+                           (and (number? x) (exact? x) (= x 1))))
                     (1+ y)
                     (+ x y))))
   (x y z . rest) (+ x (+ y z . rest)))


hooks/post-receive
-- 
GNU Guile