mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Fix source-line-for-user for unknown line

Browse source 
* module/system/vm/debug.scm (source-line-for-user): Fix to allow for
  unknown lines.
This commit is contained in:
Andy Wingo 2014-05-30 11:54:56 -04:00
parent 51177f3515
commit c90e2c6087
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/debug.scm
View file

@ -657,7 +657,7 @@ section of the ELF image. Returns an ELF symbol, or @code{#f}."
;; one-indexed. Columns, on the other hand, are zero-indexed to both. Go ;; one-indexed. Columns, on the other hand, are zero-indexed to both. Go
;; figure. ;; figure.
(define (source-line-for-user source) (define (source-line-for-user source)
(1+ (source-line source))) (and (source-line source) (1+ (source-line source))))
(define* (find-source-for-addr addr #:optional (define* (find-source-for-addr addr #:optional
(context (find-debug-context addr)) (context (find-debug-context addr))