From 429f745586810181764399a971615b2f74af48cc Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 24 Aug 2008 20:13:08 +0200
Subject: MLKLetForm: Support atomic variable binding forms.

---
 MLKForm.m | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'MLKForm.m')

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];
     }
   
-- 
cgit v1.2.3