From 6de43e5fda7f6afd79e2f3047e111504947e6374 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Sat, 11 Sep 1999 18:28:12 +0000
Subject: [PATCH] * debug.scm (frame-number->index): Optionally take stack as
 argument.

---
 ice-9/debug.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/ice-9/debug.scm b/ice-9/debug.scm
index 96a2a1df7..8923521a3 100644
--- a/ice-9/debug.scm
+++ b/ice-9/debug.scm
@@ -25,10 +25,13 @@
 
 ;;; {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))))
 
 
 ;;; {Trace}