mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Change some make-stack tests to use frame-call-representation

Browse source 
* test-suite/tests/eval.test ("stacks"): Use frame-call-representation.
This commit is contained in:
Andy Wingo 2014-04-16 19:13:09 +02:00
parent 3f71590f20
commit 37d574b378
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -384,8 +384,8 @@
(frames (stack->frames stack))) (frames (stack->frames stack)))
;; the top frame on the stack is the lambda inside the 'catch, and the ;; the top frame on the stack is the lambda inside the 'catch, and the
;; next frame is the (catch 'result ...) ;; next frame is the (catch 'result ...)
(and (eq? (frame-procedure (cadr frames)) (and (eq? (car (frame-call-representation (cadr frames)))
catch) 'catch)
(eq? (car (frame-arguments (cadr frames))) (eq? (car (frame-arguments (cadr frames)))
'result)))) 'result))))
@ -394,12 +394,10 @@
(frames (stack->frames stack))) (frames (stack->frames stack)))
;; the top frame on the stack is the make-stack call, and the last ;; the top frame on the stack is the make-stack call, and the last
;; frame is the (with-throw-handler 'wrong-type-arg ...) ;; frame is the (with-throw-handler 'wrong-type-arg ...)
(and (eq? (frame-procedure (car frames)) (and (eq? (car (frame-call-representation (car frames)))
make-stack) 'make-stack)
(eq? (frame-procedure (car (last-pair frames))) (eq? (car (frame-call-representation (car (last-pair frames))))
with-throw-handler) 'with-throw-handler)))))
(eq? (car (frame-arguments (car (last-pair frames))))
'wrong-type-arg)))))
;;; ;;;
;;; letrec init evaluation ;;; letrec init evaluation