Hello,
I think I found a bug in (srfi srfi-64) module shipped with GNU Guile.
The specification describes the on-bad-end-name-function like this:
(on-bad-end-name-function runner begin-name end-name)
Thus the following should print `x':
(use-modules (srfi srfi-64))
(let ((r (test-runner-null)))
(test-runner-current r)
(test-runner-on-bad-end-name! r
(λ (runner begin-name end-name)
(pk begin-name)))
(test-begin "x")
(test-assert #t)
(test-end "y"))
But it does not:
;;; ("y")
Have a nice day
Tomas Volf
