[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/02: Fix compute-frame-sizes for case-lambda jumps
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/02: Fix compute-frame-sizes for case-lambda jumps |
Date: |
Wed, 22 Feb 2017 17:11:19 -0500 (EST) |
wingo pushed a commit to branch master
in repository guile.
commit 4dcc97288dc2c43ea9f2e61fdb1357cec3936fc9
Author: Andy Wingo <address@hidden>
Date: Wed Feb 22 22:20:07 2017 +0100
Fix compute-frame-sizes for case-lambda jumps
* module/system/vm/frame.scm (compute-frame-sizes): Fix for jumps to the
next arity.
---
module/system/vm/frame.scm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm
index c9090ef..b699590 100644
--- a/module/system/vm/frame.scm
+++ b/module/system/vm/frame.scm
@@ -103,6 +103,9 @@
(define (find-idx n diff)
(let lp ((n n) (diff diff))
(cond
+ ((= n (vector-length parsed))
+ ;; Possible for jumps to alternate arities.
+ #f)
((negative? diff)
(lp (1- n) (+ diff (vector-ref parsed (1- n)))))
((positive? diff)