diff options
-rw-r--r-- | module/language/glil/compile-objcode.scm | 2 |
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!)) |