summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/glil/compile-objcode.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/glil/compile-objcode.scm b/module/language/glil/compile-objcode.scm
index f2560a5ed..4558ff0f3 100644
--- a/module/language/glil/compile-objcode.scm
+++ b/module/language/glil/compile-objcode.scm
@@ -173,7 +173,7 @@
((<glil-mv-bind> vars rest)
(push-bindings! (munge-bindings vars nargs))
- (push-code! `(truncate-values ,(length binds) ,(if rest 1 0))))
+ (push-code! `(truncate-values ,(length vars) ,(if rest 1 0))))
((<glil-unbind>)
(close-binding!))