mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix eval.test: stack involving a primitive

Browse source 
* test-suite/tests/eval.test ("stacks"): Revert expect-fail introduced
  in 27337b6373.
This commit is contained in:
Andy Wingo 2013-11-08 09:07:32 +01:00
parent 3a858c3275
commit 1ab116f390
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -349,9 +349,7 @@
(define tag (make-prompt-tag "foo")) (define tag (make-prompt-tag "foo"))
(with-test-prefix "stacks" (with-test-prefix "stacks"
;; FIXME: Until we get one VM, a call to an RTL primitive from the (pass-if "stack involving a primitive"
;; stack VM will result in the primitive being on the stack twice.
(expect-fail "stack involving a primitive"
;; The primitive involving the error must appear exactly once on the ;; The primitive involving the error must appear exactly once on the
;; stack. ;; stack.
(let* ((stack (make-tagged-trimmed-stack tag '(#t))) (let* ((stack (make-tagged-trimmed-stack tag '(#t)))