From d17878f6c12c10a49196bb08f737f36b11e61c31 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Thu, 18 Mar 2021 09:12:30 +0100
Subject: check: Support guile-3.0.5.

See https://bugs.gnu.org/42713.

* tests/frame.scm (test-runner): New define.
Use it in exit statement.
---
 tests/frame.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/frame.scm b/tests/frame.scm
index 5dd4813..268601a 100644
--- a/tests/frame.scm
+++ b/tests/frame.scm
@@ -167,7 +167,9 @@
    (list (make-text-frame "Hel")
          (make-text-frame "lo"))))
 
+(define test-runner (test-runner-current))
+
 (test-end "frame")
 
 
-(exit (= (test-runner-fail-count (test-runner-current)) 0))
+(exit (= (test-runner-fail-count test-runner) 0))
-- 
cgit v1.2.3