summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-01-12 21:37:44 +0100
committerAndy Wingo <wingo@pobox.com>2009-01-12 21:37:44 +0100
commit7bd5f2913d5eab83f3432c413458cc18658ce457 (patch)
tree84213585bdbef0262ed53fd47901aee793c40bd1
parentc32929d14d40f9e00c3fd10d3f51d54733ebf687 (diff)
downloadguile-7bd5f2913d5eab83f3432c413458cc18658ce457.tar.gz
fix typo when compiling receive forms
* module/language/glil/compile-objcode.scm (codegen): Fix an embarassing typo, introduced in c2c82b62f40242a4212528c3d3e882038b48f0a2
-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!))