summaryrefslogtreecommitdiff
path: root/test-suite/tests/eval.test
diff options
context:
space:
mode:
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)))