1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00

Fix compute-predecessors bug in frame.scm

* module/system/vm/frame.scm (compute-predecessors): Fix bug in
  resolving targets of backwards branches.
This commit is contained in:
Andy Wingo 2014-05-28 10:46:19 -04:00
parent 146c8e72a9
commit 5062a56df0

View file

@ -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))