From 5062a56df049c52aa6d017808e4086965d945530 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 28 May 2014 10:46:19 -0400 Subject: [PATCH] Fix compute-predecessors bug in frame.scm * module/system/vm/frame.scm (compute-predecessors): Fix bug in resolving targets of backwards branches. --- module/system/vm/frame.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm index 776109fee..ac5fbf6f5 100644 --- a/module/system/vm/frame.scm +++ b/module/system/vm/frame.scm @@ -64,7 +64,7 @@ (let lp ((to from) (target target)) (cond ((negative? target) - (lp (1- to) (+ target (vector-ref parsed to)))) + (lp (1- to) (+ target (vector-ref parsed (1- to))))) ((positive? target) (lp (1+ to) (- target (vector-ref parsed to)))) ((= to (vector-length preds))