bug#57123: compile discards multiple values

Example:

scheme@(guile-user)> (eval '(values 1 2) (current-module))
$1 = 1
$2 = 2
scheme@(guile-user)> (use-modules (system base compile))
scheme@(guile-user)> (compile '(values 1 2) #:env (current-module))
$3 = 1
scheme@(guile-user)>


Tested with Guile 3.0.7.

A workaround can be found at
https://lists.gnu.org/archive/html/guile-user/2022-08/msg00043.html