summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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];
}