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:
parent
146c8e72a9
commit
5062a56df0
1 changed files with 1 additions and 1 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue