[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. v2.1.0-240-g4105f68

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.1.0-240-g4105f68
Date: Mon, 30 Apr 2012 18:37:33 +0000

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".

The branch, master has been updated
       via  4105f688e33e592534b809c048451d94db82681a (commit)
      from  9d8a10a94c022e5fe4b58aa4b586eda514b1189f (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 4105f688e33e592534b809c048451d94db82681a
Author: Andy Wingo <address@hidden>
Date:   Mon Apr 30 20:26:09 2012 +0200

    fix peval test for recent merge
    * test-suite/tests/peval.test: Fix test for master.


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

diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 2bd8919..008b5c9 100644
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -1005,11 +1005,11 @@
   ;; residualizing a reference to the leaf identifier.  The bailout is
   ;; driven by the recursive-effort-limit, which is currently 100.  We
   ;; make sure to trip it with this recursive sum thing.
-  (pass-if-peval resolve-primitives
+  (pass-if-peval
     (let ((x (let sum ((n 0) (out 0))
                (if (< n 10000)
                    (sum (1+ n) (+ out n))
       ((lambda (y) (list y)) x))
     (let (x) (_) (_)
-         (apply (primitive list) (lexical x _)))))
+         (primcall list (lexical x _)))))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]