From 6bd0e814801d17df04ef23480647792480c08c26 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Tue, 25 Apr 2017 22:28:09 -0500 Subject: [PATCH] Fix frame-matcher for when nothing is found for program-last-ip. * module/system/vm/traps.scm (frame-matcher): Check for end before we compare it to anything, since it might be #f. --- module/system/vm/traps.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/system/vm/traps.scm b/module/system/vm/traps.scm index c4861c925..43a067a76 100644 --- a/module/system/vm/traps.scm +++ b/module/system/vm/traps.scm @@ -124,7 +124,7 @@ (end (program-last-ip proc))) (lambda (frame) (let ((ip (frame-instruction-pointer frame))) - (and (<= start ip) (< ip end)))))) + (and end (<= start ip) (< ip end)))))) ((struct? proc) (frame-matcher (procedure proc))) (else -- 2.12.2