miniMAL: add step5.

1 files changed, 25 insertions, 11 deletions

diff --git a/miniMAL/types.json b/miniMAL/types.json
index 9e19464..2e85775 100644
--- a/miniMAL/types.json
+++ b/miniMAL/types.json
@@ -1,16 +1,5 @@
 ["do",
 
-["def", "symbol", ["fn", ["name"],
-  ["hash-map", ["`", "type"], ["`", "Symbol"],
-               ["`", "val"], "name"]]],
-
-["def", "symbol?", ["fn", ["obj"],
-  ["if", ["=", "obj", null],
-    false,
-    ["if", ["=", ["`", "Symbol"], ["get", "obj", ["`", "type"]]],
-      true,
-      false]]]],
-
 ["def", "_cmp_seqs", ["fn", ["a", "b"],
   ["if", ["not", ["=", ["count", "a"], ["count", "b"]]],
     false,
@@ -27,5 +16,30 @@
       false],
     ["=", "a", "b"]]]],
 
+["def", "symbol", ["fn", ["name"],
+  ["hash-map", ["`", "type"], ["`", "Symbol"],
+               ["`", "val"], "name"]]],
+
+["def", "symbol?", ["fn", ["obj"],
+  ["if", ["=", "obj", null],
+    false,
+    ["if", ["=", ["`", "Symbol"], ["get", "obj", ["`", "type"]]],
+      true,
+      false]]]],
+
+["def", "malfunc", ["fn", ["fn", "ast", "env", "params"],
+  ["hash-map", ["`", "type"], ["`", "MalFunc"],
+               ["`", "fn"], "fn",
+               ["`", "ast"], "ast",
+               ["`", "env"], "env",
+               ["`", "params"], "params"]]],
+
+["def", "malfunc?", ["fn", ["obj"],
+  ["if", ["=", "obj", null],
+    false,
+    ["if", ["=", ["`", "MalFunc"], ["get", "obj", ["`", "type"]]],
+      true,
+      false]]]],
+
 null
 ]