[Guile-commits] 01/02: Fix compute-frame-sizes for case-lambda jumps

[Andy Wingo]

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)