From ad28cf3cb19d91399c52149d798f6c6efb780a51 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Mon, 16 Feb 2015 01:15:35 -0600
Subject: miniMAL: add metadata support.

---
 miniMAL/reader.json | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'miniMAL/reader.json')

diff --git a/miniMAL/reader.json b/miniMAL/reader.json
index e9ea6e1..5fa113b 100644
--- a/miniMAL/reader.json
+++ b/miniMAL/reader.json
@@ -88,6 +88,15 @@
       ["do",
         ["rdr-next", "rdr"],
         ["list", ["symbol", ["`", "splice-unquote"]], ["read-form", "rdr"]]],
+    ["if", ["=", ["`", "^"], "token"],
+      ["do",
+        ["rdr-next", "rdr"],
+        ["let", ["meta", ["read-form", "rdr"]],
+          ["list", ["symbol", ["`", "with-meta"]], ["read-form", "rdr"], "meta"]]],
+    ["if", ["=", ["`", "@"], "token"],
+      ["do",
+        ["rdr-next", "rdr"],
+        ["list", ["symbol", ["`", "deref"]], ["read-form", "rdr"]]],
 
     ["if", ["=", ["`", ")"], "token"],
       ["throw", ["`", "unexpected ')'"]],
@@ -104,7 +113,7 @@
     ["if", ["=", ["`", "{"], "token"],
       ["apply", "hash-map", ["read-list", "rdr", ["`", "{"], ["`", "}"]]],
 
-    ["read-atom", "rdr"]]]]]]]]]]]]]],
+    ["read-atom", "rdr"]]]]]]]]]]]]]]]],
 
 ["def", "read-str", ["fn", ["strn"],
   ["let", ["tokens", ["tokenize", "strn"],
-- 
cgit v1.2.3