From d90c784472f6131f28612eb6eaa02404e002178d Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Mon, 16 Feb 2015 00:01:10 -0600
Subject: miniMAL: stepA. Comments. Add impl Makefile for stats.

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

(limited to 'miniMAL/reader.json')

diff --git a/miniMAL/reader.json b/miniMAL/reader.json
index 108d626..428d12d 100644
--- a/miniMAL/reader.json
+++ b/miniMAL/reader.json
@@ -26,7 +26,11 @@
 ["def", "tokenize", ["fn", ["strn"],
   ["let", ["re-str", ["`", "[\\s,]*(~@|[\\[\\]{}()'`~^@]|\"(?:\\\\.|[^\\\\\"])*\"|;.*|[^\\s\\[\\]{}('\"`,;)]*)"],
            "re", ["RegExp", "re-str", ["`", "g"]]],
-    ["re-matches", "re", "strn", ["`", []]]]]],
+    [".",
+      ["re-matches", "re", "strn", ["`", []]],
+      ["`", "filter"],
+      ["fn", ["x"], ["not", ["=", ["get", "x", 0],
+                                  ["`", ";"]]]]]]]],
 
 ["def", "read-atom", ["fn", ["rdr"],
   ["let", ["token", ["rdr-next", "rdr"]],
-- 
cgit v1.2.3