mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

fix error in frame-return-values

Browse source 
* module/system/vm/frame.scm (frame-return-values): Fix off-by-one
  error.
This commit is contained in:
Andy Wingo 2010-10-08 11:53:59 +02:00
parent 4388818adb
commit d608db1d59
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -157,5 +157,5 @@
(let* ((len (frame-num-locals frame)) (let* ((len (frame-num-locals frame))
(nvalues (frame-local-ref frame (1- len)))) (nvalues (frame-local-ref frame (1- len))))
(map (lambda (i) (map (lambda (i)
(frame-local-ref frame (+ (- len nvalues) i))) (frame-local-ref frame (+ (- len nvalues 1) i)))
(iota nvalues)))) (iota nvalues))))