diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-08 09:07:32 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-08 09:07:32 +0100 |
commit | 1ab116f39075f8dcf1b6c8084d9afc547f9a85b7 (patch) | |
tree | 4741d314fdb15516c027e464a681a79ce380bade | |
parent | 3a858c327539522d39c6a46d3a573909b030680d (diff) | |
download | guile-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.test | 4 |
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))) |