diff options
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))) |