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

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

Browse source 
argument.
This commit is contained in:
Mikael Djurfeldt 1999-09-11 18:28:12 +00:00
parent 0c76ebbd1f
commit 6de43e5fda
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ice-9/debug.scm
View file

@ -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}