From d889c23d138e8df1342bb50bc472e0315b821491 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Wed, 2 Jul 2008 17:37:08 +0200
Subject: Interpreter: Implement SETQ.

---
 MLKInterpreter.m | 37 +++++++++++++++++++++++++++++++------
 1 file changed, 31 insertions(+), 6 deletions(-)

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index 5dd6cc7..4ecd42d 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -351,12 +351,37 @@ static MLKSymbol *_LAMBDA;
             }
           else if (car == SETQ)
             {
-              //FIXME: ...
+              id symbol = [[program cdr] car];
+              id value = [[self eval:[[[program cdr] cdr] car]
+                                inLexicalContext:context
+                                withEnvironment:lexenv]
+                           objectAtIndex:0];
+              id rest = [[[program cdr] cdr] cdr];
+
+              if (![program cdr])
+                return [NSArray arrayWithObject:[NSNull null]];
+
               //FIXME: Don't forget handling symbol macros correctly.
+
+              if ([context variableIsLexical:symbol])
+                [lexenv setValue:value forSymbol:symbol];
+              else if ([dynamicContext bindingForSymbol:symbol])
+                [dynamicContext setValue:value forSymbol:symbol];
+              else
+                // Maybe print a warning.
+                [[MLKDynamicContext globalContext] addValue:value
+                                                   forSymbol:symbol];
+
+
+              if (rest)
+                return [self eval:[MLKCons cons:SETQ with:rest]
+                             inLexicalContext:context
+                             withEnvironment:lexenv];
+              else
+                return [NSArray arrayWithObject:value];
             }
           else if (car == SET)
             {
-              MLKDynamicContext *ctx = [MLKDynamicContext currentContext];
               id symbol = [[self eval:[[program cdr] car]
                                  inLexicalContext:context
                                  withEnvironment:lexenv]
@@ -366,11 +391,11 @@ static MLKSymbol *_LAMBDA;
                                 withEnvironment:lexenv]
                           objectAtIndex:0];
 
-              if ([ctx bindingForSymbol:symbol])
-                [ctx setValue:value forSymbol:symbol];
+              if ([dynamicContext bindingForSymbol:symbol])
+                [dynamicContext setValue:value forSymbol:symbol];
               else
-                [[MLKDynamicContext globalContext]
-                  addValue:value forSymbol:symbol];
+                [[MLKDynamicContext globalContext] addValue:value
+                                                   forSymbol:symbol];
 
               return [NSArray arrayWithObject:symbol];
             }
-- 
cgit v1.2.3