From 1ab116f39075f8dcf1b6c8084d9afc547f9a85b7 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 8 Nov 2013 09:07:32 +0100 Subject: [PATCH] Fix eval.test: stack involving a primitive * test-suite/tests/eval.test ("stacks"): Revert expect-fail introduced in 27337b6373954e1a975d97d0bf06b5c03d65b64d. --- test-suite/tests/eval.test | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test index a0221b81b..8930cf2b7 100644 --- a/test-suite/tests/eval.test +++ b/test-suite/tests/eval.test @@ -349,9 +349,7 @@ (define tag (make-prompt-tag "foo")) (with-test-prefix "stacks" - ;; FIXME: Until we get one VM, a call to an RTL primitive from the - ;; stack VM will result in the primitive being on the stack twice. - (expect-fail "stack involving a primitive" + (pass-if "stack involving a primitive" ;; The primitive involving the error must appear exactly once on the ;; stack. (let* ((stack (make-tagged-trimmed-stack tag '(#t)))