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

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

[Maxime Devos]

[-- Attachment #1.1: Type: text/plain, Size: 143 bytes --]

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:


[-- Attachment #1.2: Type: text/plain, Size: 549 bytes --]

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]> 

[-- Attachment #1.3: Type: text/plain, Size: 55 bytes --]


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


[-- Attachment #1.4: Type: application/scheme, Size: 180 bytes --]

[-- Attachment #1.5: Type: text/plain, Size: 46 bytes --]


For sleep/1, the error message is different:

[-- Attachment #1.6: Type: text/plain, Size: 445 bytes --]

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]> 

[-- Attachment #1.7: Type: text/plain, Size: 152 bytes --]


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:.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 259 bytes --]