From 7ebf5219e1be21ed10cecabda8262c77da7465ae Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Thu, 12 Feb 2015 01:11:50 -0600
Subject: miniMAL: add step4 (without functions).

---
 miniMAL/types.json | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'miniMAL/types.json')

diff --git a/miniMAL/types.json b/miniMAL/types.json
index 2f4d264..37cc50e 100644
--- a/miniMAL/types.json
+++ b/miniMAL/types.json
@@ -5,9 +5,11 @@
                ["`", "val"], "name"]]],
 
 ["def", "symbol?", ["fn", ["obj"],
-  ["if", ["=", ["`", "Symbol"], ["get", "obj", ["`", "type"]]],
-    true,
-    false]]],
+  ["if", ["=", "obj", null],
+    false,
+    ["if", ["=", ["`", "Symbol"], ["get", "obj", ["`", "type"]]],
+      true,
+      false]]]],
 
 null
 ]
-- 
cgit v1.2.3