mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

fix peval test for recent merge

Browse source 
* test-suite/tests/peval.test: Fix test for master.
This commit is contained in:
Andy Wingo 2012-04-30 20:26:09 +02:00
parent 9d8a10a94c
commit 4105f688e3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/peval.test
View file

@ -1005,11 +1005,11 @@
;; residualizing a reference to the leaf identifier. The bailout is ;; residualizing a reference to the leaf identifier. The bailout is
;; driven by the recursive-effort-limit, which is currently 100. We ;; driven by the recursive-effort-limit, which is currently 100. We
;; make sure to trip it with this recursive sum thing. ;; 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)) (let ((x (let sum ((n 0) (out 0))
(if (< n 10000) (if (< n 10000)
(sum (1+ n) (+ out n)) (sum (1+ n) (+ out n))
out)))) out))))
((lambda (y) (list y)) x)) ((lambda (y) (list y)) x))
(let (x) (_) (_) (let (x) (_) (_)
(apply (primitive list) (lexical x _))))) (primcall list (lexical x _)))))