mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

slight tweak to stack narrowing in the debugger

Browse source 
* module/system/vm/debug.scm: Really narrow two frames and not by
  function, so it works in the evaluator.
This commit is contained in:
Andy Wingo 2010-01-09 21:53:04 +01:00
parent fc7648637b
commit 913ddf0574
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/debug.scm
View file

@ -367,7 +367,7 @@ With an argument, select a frame by index, then show it."
;; (state associated with vm ?) ;; (state associated with vm ?)
(define (debug-pre-unwind-handler key . args) (define (debug-pre-unwind-handler key . args)
(let ((stack (make-stack #t debug-pre-unwind-handler))) (let ((stack (make-stack #t 2)))
(pmatch args (pmatch args
((,subr ,msg ,args . ,rest) ((,subr ,msg ,args . ,rest)
(format #t "Throw to key `~a':\n" key) (format #t "Throw to key `~a':\n" key)