Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-10-03 03:55:43 +00:00
Code Issues Projects Releases Wiki Activity

changed parse-token to loop and recur

Browse Source
This commit is contained in:
Richard Harrington 2013-07-16 17:54:42 -04:00
parent b136663305
commit c1afcd9d79
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/hs_robotwar/core.clj
View File

@ -66,12 +66,11 @@
[return-err :error]])
(defn parse-token
"takes a single token and adds the appropriate metadata"
[{:keys [token-str pos]}]
(first (for [[parser token-type] parser-priority
:let [token-val (parser token-str)]
:when token-val]
{:val token-val, :type token-type, :pos pos})))
[{:keys [token-str pos]}]
(loop [[[parser token-type] & tail] parser-priority]
(if-let [token-val (parser token-str)]
{:val token-val, :type token-type, :pos pos}
(recur tail))))
(defn parse
"take the tokens and convert them to strucured source code ready for compiling"