bug#72366: srfi-64: on-bad-end-name-function has swapped arguments

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