MLKLetForm: Support atomic variable binding forms.

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];
     }