diff options
author | Andy Wingo <wingo@pobox.com> | 2012-04-30 20:26:09 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-04-30 20:26:48 +0200 |
commit | 4105f688e33e592534b809c048451d94db82681a (patch) | |
tree | e4ec1eb72e7bbf676a4668e324ef4357126c2d7c /test-suite/tests/peval.test | |
parent | 9d8a10a94c022e5fe4b58aa4b586eda514b1189f (diff) | |
download | guile-4105f688e33e592534b809c048451d94db82681a.tar.gz |
fix peval test for recent merge
* test-suite/tests/peval.test: Fix test for master.
Diffstat (limited to 'test-suite/tests/peval.test')
-rw-r--r-- | 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 2bd8919f5..008b5c97b 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)) out)))) ((lambda (y) (list y)) x)) (let (x) (_) (_) - (apply (primitive list) (lexical x _))))) + (primcall list (lexical x _))))) |