From 913ddf05745a691c71291aba47fc901fc7ead1de Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 9 Jan 2010 21:53:04 +0100 Subject: [PATCH] slight tweak to stack narrowing in the debugger * module/system/vm/debug.scm: Really narrow two frames and not by function, so it works in the evaluator. --- module/system/vm/debug.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm index 935a938de..ff4d000d1 100644 --- a/module/system/vm/debug.scm +++ b/module/system/vm/debug.scm @@ -367,7 +367,7 @@ With an argument, select a frame by index, then show it." ;; (state associated with vm ?) (define (debug-pre-unwind-handler key . args) - (let ((stack (make-stack #t debug-pre-unwind-handler))) + (let ((stack (make-stack #t 2))) (pmatch args ((,subr ,msg ,args . ,rest) (format #t "Throw to key `~a':\n" key)