diff options
author | Andy Wingo <wingo@pobox.com> | 2009-01-12 21:37:44 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-01-12 21:37:44 +0100 |
commit | 7bd5f2913d5eab83f3432c413458cc18658ce457 (patch) | |
tree | 84213585bdbef0262ed53fd47901aee793c40bd1 | |
parent | c32929d14d40f9e00c3fd10d3f51d54733ebf687 (diff) | |
download | guile-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.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!)) |