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

* debug.scm (frame-number->index): New function. Convert frame

Browse source 
number (as displayed in the backtrace) to frame index (to be used
in stack-ref).
This commit is contained in:
Mikael Djurfeldt 1997-08-24 03:32:43 +00:00
parent 95f5b0f5ec
commit 8ccbf00d9a
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/debug.scm
View file

@ -111,6 +111,14 @@
(define-all) (define-all)
;;; {Misc}
;;;
(define-public (frame-number->index n)
(if (memq 'backwards (debug-options))
n
(- (stack-length the-last-stack) n 1)))
;;; {Trace} ;;; {Trace}
;;; ;;;