From 1981bf5766d9bb75a652cc781b817cc3150d12ef Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Sun, 15 Feb 2015 20:46:19 -0600 Subject: miniMAL: step7 --- miniMAL/reader.json | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'miniMAL/reader.json') diff --git a/miniMAL/reader.json b/miniMAL/reader.json index 7058558..108d626 100644 --- a/miniMAL/reader.json +++ b/miniMAL/reader.json @@ -66,11 +66,28 @@ ["def", "read-form", ["fn", ["rdr"], ["let", ["token", ["rdr-peek", "rdr"]], + ["if", ["=", ["`", "'"], "token"], + ["do", + ["rdr-next", "rdr"], + ["list", ["symbol", ["`", "quote"]], ["read-form", "rdr"]]], + ["if", ["=", ["`", "`"], "token"], + ["do", + ["rdr-next", "rdr"], + ["list", ["symbol", ["`", "quasiquote"]], ["read-form", "rdr"]]], + ["if", ["=", ["`", "~"], "token"], + ["do", + ["rdr-next", "rdr"], + ["list", ["symbol", ["`", "unquote"]], ["read-form", "rdr"]]], + ["if", ["=", ["`", "~@"], "token"], + ["do", + ["rdr-next", "rdr"], + ["list", ["symbol", ["`", "splice-unquote"]], ["read-form", "rdr"]]], + ["if", ["=", ["`", ")"], "token"], ["throw", ["`", "unexpected ')'"]], ["if", ["=", ["`", "("], "token"], ["read-list", "rdr"], - ["read-atom", "rdr"]]]]]], + ["read-atom", "rdr"]]]]]]]]]], ["def", "read-str", ["fn", ["strn"], ["let", ["tokens", ["tokenize", "strn"], -- cgit v1.2.3