[srfi64-extras.scm] exit instead of return #t if no failures

due to change in guile-3.0.7 to fix srfi64 bug
This commit is contained in:
Christopher Lam 2021-08-19 19:33:17 +08:00
parent 57866eed88
commit c4a0fb468b

View File

@ -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))