bug#46232: ‘Wrong type argument ...’ exception when printing backtrace after interrupt

Hi guilers!

When entering sleeping code in the REPL, then interrupting it
(C-c) and entering ,bt twice, I receive an error message from ,bt:

GNU Guile 3.0.5
[...]
Enter `,help' for help.
scheme@(guile-user)> (let ((mu (make-mutex))) (with-mutex mu (wait-condition-variable (make-condition-variable) mu)))
^Cice-9/boot-9.scm:1669:16: In procedure raise-exception:
User interrupt

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> ,bt
In current input:
     1:40  4 (_)
In unknown file:
While executing meta-command:
In procedure program-code: Wrong type argument in position 1 (expecting PROGRAM_P): #t
scheme@(guile-user) [1]>


I've found two variants so far, sleep/0 and sleep/1:


For sleep/1, the error message is different:

scheme@(guile-user)> (sleep/1)
^Cice-9/boot-9.scm:1669:16: In procedure raise-exception:
User interrupt

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> ,bt
In system/repl/repl.scm:
   159:22  4 (_)
In ice-9/boot-9.scm:
   2170:4  3 (%start-stack _ _)
In unknown file:
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0
scheme@(guile-user) [1]>


Could folks familiar with interrupts, the REPL and backtraces
take a look?

Maxime.
P.S. I'm not subscribed to bug-guile, please add me to To:
or CC:.

-----BEGIN PGP SIGNATURE-----

iI0EARYIADUWIQTB8z7iDFKP233XAR9J4+4iGRcl7gUCYBfddBccbWF4aW1lZGV2
b3NAdGVsZW5ldC5iZQAKCRBJ4+4iGRcl7rEEAQD9rIjG9G0j6lR1wWTdby/J8fzB
Zco9jKxWoDaK7zyUTgEA3FxCRbcKPuj9jJ8W0Ts7PXOfYAv/eVAcI53ExNgvsw4=
=CB6u
-----END PGP SIGNATURE-----