Re: Stack traces

[Matt Wette <matt.wette@gmail.com>]

> On Feb 18, 2017, at 7:53 AM, Amirouche <amirouche@hypermove.net> wrote:
> Le 18/02/2017 à 16:50, Amirouche a écrit :
>> Le 18/02/2017 à 01:13, Matt Wette a écrit :
>>> (use-modules (system repl repl))
>>> (use-modules (system repl debug))
>>> 
>>> (define-syntax-rule (trap-here)
>>>   (start-repl
>>>    #:debug (make-debug (stack->vector (make-stack #t)) 0 "trap!" #t)))
>>> 
>>> (define (foo)
>>>   (let iter ((sum 0) (vals '(1 2 3 5 8 2)))
>>>     (trap-here)
>>>     (if (null? vals) sum
>>>    (iter (+ sum (car vals)) (cdr vals)))))
>>> 
>>> (foo)
>> It looks like that. Except `iter` should be defined in the namespace of the REPL.
> Maybe iter is complicated, but at least sum and vals.

Hmm.   The procedure “foo” without the "(trap-here)” is just a simple program (using named let) that I want to debug. 
So I add the “(trap-here)” to get into the debugger at that spot in the program, like I would add “pdb.set_trace()” in python.

Matt