fix typo when compiling receive forms

* module/language/glil/compile-objcode.scm (codegen): Fix an embarassing
  typo, introduced in c2c82b62f40242a4212528c3d3e882038b48f0a2

diff --git a/module/language/glil/compile-objcode.scm b/module/language/glil/compile-objcode.scm
index f2560a5..4558ff0 100644 (file)
--- 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!))