summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-24 20:13:08 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-24 20:13:08 +0200
commit429f745586810181764399a971615b2f74af48cc (patch)
treea993982ab5c6efab7a4e2a4d0c9a20a260f27066
parentaa3f4a2b760c3d890aa51b3afa904ab604de794c (diff)
MLKLetForm: Support atomic variable binding forms.
-rw-r--r--MLKForm.m13
1 files changed, 12 insertions, 1 deletions
diff --git a/MLKForm.m b/MLKForm.m
index 3f529dc..848dab3 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -595,10 +595,21 @@
while (bindings)
{
+ id varname;
+
+ if ([[bindings car] isKindOfClass:[MLKCons class]])
+ {
+ varname = [[bindings car] car];
+ }
+ else
+ {
+ varname = [bindings car];
+ }
+
[bindingForms addObject:[MLKVariableBindingForm formWithObject:[bindings car]
inContext:_context
forCompiler:_compiler]];
- [variables addObject:[[bindings car] car]];
+ [variables addObject:varname];
bindings = [bindings cdr];
}