From c90e2c608744c0c1f2e94f9c75c5a298feccbf9d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 30 May 2014 11:54:56 -0400 Subject: [PATCH] Fix source-line-for-user for unknown line * module/system/vm/debug.scm (source-line-for-user): Fix to allow for unknown lines. --- module/system/vm/debug.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm index 97c3d99fb..cd8c19e13 100644 --- a/module/system/vm/debug.scm +++ b/module/system/vm/debug.scm @@ -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 ;; figure. (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 (context (find-debug-context addr))