|
From: | Matt Wette |
Subject: | Break-when [was GNU Guile 2.1.7 released (beta)] |
Date: | Thu, 23 Feb 2017 16:52:08 -0800 |
I am playing with this. Now reading through system/repl/* and system/vm/* to understand the debugger. Try (use-modules (system repl repl)) (use-modules (system repl debug)) (define-syntax-rule (trap-here-0) (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-0) (cond ((null? vals) sum) (else (iter (+ sum (car vals)) (cdr vals)))))) (foo) I have added some debugger commands: ,loc - show current location ,qq - really quit (calls primitive-exit) scheme@(guile-user) [1]> ,loc (let iter ((sum 0) (vals '(1 2 3 5 8 2))) * (trap-here-0) (cond scheme@(guile-user) [1]> ,qq mwette$ |
[Prev in Thread] | Current Thread | [Next in Thread] |