* debug.scm (frame-number->index): Optionally take stack as

argument.

diff --git a/ice-9/debug.scm b/ice-9/debug.scm
index 96a2a1d..8923521 100644 (file)
--- a/ice-9/debug.scm
+++ b/ice-9/debug.scm
@@ -25,10 +25,13 @@
 \f
 ;;; {Misc}
 ;;;
-(define-public (frame-number->index n)
-  (if (memq 'backwards (debug-options))
-      n
-      (- (stack-length (fluid-ref the-last-stack)) n 1)))
+(define-public (frame-number->index n . stack)
+  (let ((stack (if (null? stack)
+                  (fluid-ref the-last-stack)
+                  (car stack))))
+    (if (memq 'backwards (debug-options))
+       n
+       (- (stack-length stack) n 1))))
 
 \f
 ;;; {Trace}