From c4a0fb468b2a74b4e9f7a5a614fd607e0aae9cac Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Thu, 19 Aug 2021 19:33:17 +0800 Subject: [PATCH] [srfi64-extras.scm] exit instead of return #t if no failures due to change in guile-3.0.7 to fix srfi64 bug --- bindings/guile/test/srfi64-extras.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bindings/guile/test/srfi64-extras.scm b/bindings/guile/test/srfi64-extras.scm index b41baee432..e572e988a8 100644 --- a/bindings/guile/test/srfi64-extras.scm +++ b/bindings/guile/test/srfi64-extras.scm @@ -45,5 +45,5 @@ (lambda (runner) (format #t "Source:~a\npass = ~a, fail = ~a\n" (test-result-ref runner 'source-file) num-passed num-failed) - (zero? num-failed))) + (exit (zero? num-failed)))) runner))