mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 12:10:28 +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} ;;; {Misc}
;;; ;;;
(define-public (frame-number->index n) (define-public (frame-number->index n . stack)
(if (memq 'backwards (debug-options)) (let ((stack (if (null? stack)
n (fluid-ref the-last-stack)
(- (stack-length (fluid-ref the-last-stack)) n 1))) (car stack))))
(if (memq 'backwards (debug-options))
n
(- (stack-length stack) n 1))))
;;; {Trace} ;;; {Trace}