summaryrefslogtreecommitdiff
path: root/module/system/vm/frame.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/frame.scm')
-rw-r--r--module/system/vm/frame.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm
index 6e4527956..38850b61e 100644
--- a/module/system/vm/frame.scm
+++ b/module/system/vm/frame.scm
@@ -277,9 +277,7 @@
(if n
(match (vector-ref defs n)
(#(name def-offset slot representation)
- ;; Binding 0 is the closure, and is not present
- ;; in arity-definitions.
- (cons (make-binding (1+ n) name slot representation)
+ (cons (make-binding n name slot representation)
(lp (1+ n)))))
'()))))
(lp (1+ n) (- offset (vector-ref parsed n)))))))