tracepoint

[Adriano Peluso <randomlooser@riseup.net>]

I can't get tracepointing to work.

What follows is on Guile 3.0.5 fron Guix the package manager but the
same happens with the Guile 3.0.4 from Ubuntu

I have 2 procedures

One of them makes a so called recursive process and the other one makes
an iterative process

I can trace them

This is the recursive one

scheme@(guile-user)> ,trace (f 5)
trace: |  (f 5)
trace: |  |  (f 4)
trace: |  |  |  (f 3)
trace: |  |  |  |  (f 2)
trace: |  |  |  |  2
trace: |  |  |  |  (f 1)
trace: |  |  |  |  1
trace: |  |  |  |  (f 0)
trace: |  |  |  |  0
trace: |  |  |  4
trace: |  |  |  (f 2)
trace: |  |  |  2
trace: |  |  |  (f 1)
trace: |  |  |  1
trace: |  |  11
trace: |  |  (f 3)
trace: |  |  |  (f 2)
trace: |  |  |  2
trace: |  |  |  (f 1)
trace: |  |  |  1
trace: |  |  |  (f 0)
trace: |  |  |  0
trace: |  |  4
trace: |  |  (f 2)
trace: |  |  2
trace: |  25



and this is the iterative one

scheme@(guile-user)> ,trace (f-it 5)
trace: |  (f-it 5)
trace: |  (f-it-iter 2 1 0 5)
trace: |  (f-it-iter 4 2 1 4)
trace: |  (f-it-iter 11 4 2 3)
trace: |  (f-it-iter 25 11 4 2)
trace: |  25


but I can't tracePOINT them

scheme@(guile-user)> ,tp f
Trap 0: Tracepoint at #<procedure f (n)>.
scheme@(guile-user)> (f 6)
Trap 0: (f 6)
Trap 0: |  (f 5)
Trap 0: |  |  (f 4)
Trap 0: |  |  |  (f 3)
Trap 0: |  |  |  |  (f 2)
ice-9/boot-9.scm:1669:16: In procedure raise-exception:
Wrong number of arguments to #<procedure return-handler (frame depth
values)>

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> 



and the iterative one

scheme@(guile-user)> ,tp f-it
Trap 1: Tracepoint at #<procedure f-it (n)>.
scheme@(guile-user)> (f-it 6)
ice-9/boot-9.scm:1669:16: In procedure raise-exception:
Wrong number of arguments to #<procedure return-handler (frame depth
values)>

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]>