aboutsummaryrefslogtreecommitdiff
path: root/miniMAL/reader.json
diff options
context:
space:
mode:
Diffstat (limited to 'miniMAL/reader.json')
-rw-r--r--miniMAL/reader.json6
1 files changed, 5 insertions, 1 deletions
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"]],