simon/mw-parser
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor tidy-up

Browse source
This commit is contained in:
Simon Brooke 2014-07-21 11:03:07 +01:00
parent 91310af2d8
commit b197368c66
3 changed files with 7 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mw_parser/bulk.clj
View file

@ -30,7 +30,7 @@
"Compile each non-comment line of this `string` into an executable anonymous
function, and return the sequence of such functions."
[string]
(map #(compile-rule % true) (remove comment? (trim (split string #"\n")))))
(map #(compile-rule % true) (remove comment? (split string #"\n"))))
(defn compile-file
"Compile each non-comment line of the file indicated by this `filename` into

2
src/mw_parser/core.clj
View file

@ -414,7 +414,7 @@
(use 'mw-engine.utils)
(let [afn (eval (parse-rule rule-text))]
(cond
(and afn return-tuple?)(list afn rule-text)
(and afn return-tuple?)(list afn (trim rule-text))
true afn))))
([rule-text]
(compile-rule rule-text false)))