summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-08 09:07:32 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-08 09:07:32 +0100
commit1ab116f39075f8dcf1b6c8084d9afc547f9a85b7 (patch)
tree4741d314fdb15516c027e464a681a79ce380bade
parent3a858c327539522d39c6a46d3a573909b030680d (diff)
downloadguile-1ab116f39075f8dcf1b6c8084d9afc547f9a85b7.tar.gz
Fix eval.test: stack involving a primitive
* test-suite/tests/eval.test ("stacks"): Revert expect-fail introduced in 27337b6373954e1a975d97d0bf06b5c03d65b64d.
-rw-r--r--test-suite/tests/eval.test4
1 files changed, 1 insertions, 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)))