bug#72372: srfi-64: test-approximate evaluates test-name multiple times

Hello,

I think I found a bug in (srfi srfi-64) module shipped with GNU Guile.

The specification says the following regarding the test-approximate:

> This is equivalent to (except that each argument is only evaluated once):
>
>
> (test-assert [test-name]
>   (and (>= test-expr (- expected error))
>        (<= test-expr (+ expected error))))

However the test-name is evaluated multiple times:

    (use-modules (srfi srfi-64))
    (test-begin "x")
    (test-approximate (pk "t") 1 1 0)

Leading to:

    ;;; ("t")

    ;;; ("t")

Have a nice day
Tomas Volf