From 479f34179957864a53fcb9bd4253f89973f97ca6 Mon Sep 17 00:00:00 2001
From: Sameer Rahmani <lxsameer@gnu.org>
Date: Wed, 1 Jan 2020 18:02:10 +0000
Subject: [PATCH] 'do' special mode has been added

---
 .../java/serene/simple/DoSpecialForm.java     | 37 +++++++++++++++++++
 src/main/java/serene/simple/SpecialForm.java  |  3 ++
 2 files changed, 40 insertions(+)
 create mode 100644 src/main/java/serene/simple/DoSpecialForm.java

diff --git a/src/main/java/serene/simple/DoSpecialForm.java b/src/main/java/serene/simple/DoSpecialForm.java
new file mode 100644
index 0000000..e998bed
--- /dev/null
+++ b/src/main/java/serene/simple/DoSpecialForm.java
@@ -0,0 +1,37 @@
+/**
+ * Serene (simple) - A PoC lisp to collect data on Serenes concepts
+ * Copyright (C) 2019-2020 Sameer Rahmani <lxsameer@gnu.org>
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ * MA  02110-1301, USA.
+ */
+package serene.simple;
+
+public class DoSpecialForm extends SpecialForm {
+  public DoSpecialForm(ListNode<Node> listNode) {
+    super(listNode);
+  }
+
+  @Override
+  public Object eval(IScope scope) {
+    Object result = ListNode.EMPTY;
+
+    for(Node x: this.node.rest()) {
+      result = x.eval(scope);
+    }
+
+    return result;
+  }
+}
diff --git a/src/main/java/serene/simple/SpecialForm.java b/src/main/java/serene/simple/SpecialForm.java
index 1cce013..fd8f148 100644
--- a/src/main/java/serene/simple/SpecialForm.java
+++ b/src/main/java/serene/simple/SpecialForm.java
@@ -27,6 +27,7 @@ public class SpecialForm extends Node {
   private static final SymbolNode QUOTE = new SymbolNode("quote");
   private static final SymbolNode LET = new SymbolNode("let");
   private static final SymbolNode COND = new SymbolNode("cond");
+  private static final SymbolNode DO = new SymbolNode("do");
 
   public ListNode<Node> node;
 
@@ -43,6 +44,8 @@ public class SpecialForm extends Node {
       return new DefSpecialForm(l);
     } else if (l.first().equals(LET)){
       return new LetSpecialForm(l);
+    } else if (l.first().equals(DO)){
+      return new DoSpecialForm(l);
     } else if (l.first().equals(COND)){
       return new CondSpecialForm(l);
     } else if (l.first().equals(FN)) {