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