diff options
author | Andy Wingo <wingo@pobox.com> | 2015-11-27 15:54:51 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-12-01 11:30:54 +0100 |
commit | 58153e3a08c89fd9cc84dbf65e1df27119986cca (patch) | |
tree | 3e77d5e70d1cfd5227089ee667ae7367b85be87a /test-suite/tests/eval.test | |
parent | 3582787cb032da4d3a722bfb00882e6d992b0c87 (diff) | |
download | guile-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.test | 4 |
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))) |