[Guile-commits] GNU Guile branch, wip-cps-bis, updated. v2.1.0-163-ga156de5

[Mark H Weaver]

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

The branch, wip-cps-bis has been updated
       via  a156de5e0c02e98290294f961b4a3f6bdd15d3fa (commit)
       via  f499d6e31a8554b3191c80c0e8c25e274ee5671d (commit)
      from  d9f60f3ff9b5aa5df75c84b11c87acbd18b35488 (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 a156de5e0c02e98290294f961b4a3f6bdd15d3fa
Merge: d9f60f3 f499d6e
Author: Mark H Weaver <address@hidden>
Date:   Tue Aug 13 23:38:21 2013 -0400

    Merge remote-tracking branch 'origin/master' into wip-cps-bis

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

Summary of changes:
 test-suite/tests/peval.test |   21 +++++++++------------
 1 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 0b981d8..270224e 100644
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -347,20 +347,17 @@
         (f z y)))
    (primcall
     +
-    (const -1)                          ; (f -1 0)
     (primcall
      +
-     (const 0)                          ; (f 1 0)
      (primcall
       +
-      (seq (toplevel y) (const -1))     ; (f -1 y)
-      (primcall
-       +
-       (toplevel y)                                 ; (f 2 y)
-       (let (x y) (_ _) ((toplevel z) (toplevel y)) ; (f z y)
-            (if (primcall > (lexical x _) (const 0))
-                (lexical y _)
-                (lexical x _))))))))
+      (const -1)                      ; (f -1 0)
+      (seq (toplevel y) (const -1)))  ; (f -1 y)
+     (toplevel y))                    ; (f 2 y)
+    (let (x y) (_ _) ((toplevel z) (toplevel y))  ; (f z y)
+         (if (primcall > (lexical x _) (const 0))
+             (lexical y _)
+             (lexical x _)))))
 
   (pass-if-peval
     ;; First order, conditional.
@@ -614,8 +611,8 @@
                       (call (toplevel display) (const chbouib))))
          (let (y) (_) ((primcall * (lexical x _) (const 2)))
               (primcall +
-                        (lexical x _)
-                        (primcall + (lexical x _) (lexical y _))))))
+                        (primcall + (lexical x _) (lexical x _))
+                        (lexical y _)))))
 
   (pass-if-peval
     ;; Non-constant arguments not propagated to lambdas.


hooks/post-receive
-- 
GNU Guile