summaryrefslogtreecommitdiff
path: root/test-suite/tests/eval.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-11-27 15:54:51 +0100
committerAndy Wingo <wingo@pobox.com>2015-12-01 11:30:54 +0100
commit58153e3a08c89fd9cc84dbf65e1df27119986cca (patch)
tree3e77d5e70d1cfd5227089ee667ae7367b85be87a /test-suite/tests/eval.test
parent3582787cb032da4d3a722bfb00882e6d992b0c87 (diff)
downloadguile-58153e3a08c89fd9cc84dbf65e1df27119986cca.tar.gz
Remove frame-procedure
* libguile/frames.h: * libguile/frames.c (scm_frame_procedure): Remove. * test-suite/tests/eval.test ("stacks"): Adapt test. * NEWS: Add news item. * doc/ref/api-debug.texi (Frames): Document frame-procedure-name instead of frame-procedure.
Diffstat (limited to 'test-suite/tests/eval.test')
-rw-r--r--test-suite/tests/eval.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index e1837fd38..26917d762 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -365,8 +365,8 @@
;; stack.
(let* ((stack (make-tagged-trimmed-stack tag '(#t)))
(frames (stack->frames stack))
- (num (count (lambda (frame) (eq? (frame-procedure frame)
- substring))
+ (num (count (lambda (frame) (eq? (frame-procedure-name frame)
+ 'substring))
frames)))
(= num 1)))