From 4105f688e33e592534b809c048451d94db82681a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 30 Apr 2012 20:26:09 +0200 Subject: [PATCH] fix peval test for recent merge * test-suite/tests/peval.test: Fix test for master. --- test-suite/tests/peval.test | 4 ++-- 1 file 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 _)))))