mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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)))
;; the top frame on the stack is the lambda inside the 'catch, and the
;; next frame is the (catch 'result ...)
(and (eq? (frame-procedure (cadr frames))
catch)
(and (eq? (car (frame-call-representation (cadr frames)))
'catch)
(eq? (car (frame-arguments (cadr frames)))
'result))))
@ -394,12 +394,10 @@
(frames (stack->frames stack)))
;; the top frame on the stack is the make-stack call, and the last
;; frame is the (with-throw-handler 'wrong-type-arg ...)
(and (eq? (frame-procedure (car frames))
make-stack)
(eq? (frame-procedure (car (last-pair frames)))
with-throw-handler)
(eq? (car (frame-arguments (car (last-pair frames))))
'wrong-type-arg)))))
(and (eq? (car (frame-call-representation (car frames)))
'make-stack)
(eq? (car (frame-call-representation (car (last-pair frames))))
'with-throw-handler)))))
;;;
;;; letrec init evaluation