mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Fix compute-frame-sizes for case-lambda jumps

Browse source 
* module/system/vm/frame.scm (compute-frame-sizes): Fix for jumps to the
  next arity.
This commit is contained in:
Andy Wingo 2017-02-22 22:20:07 +01:00
parent 5333642b71
commit 4dcc97288d
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/system/vm/frame.scm
View file

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