luciano/xforms
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix for "&"

Browse source
This commit is contained in:
Jason Felice 2016-09-18 13:08:46 -04:00
parent a10df4554e
commit d42e1240e5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/net/cgrand/xforms.clj
View file

@ -22,7 +22,7 @@
init (clj/partition 2 (rseq (vec seq-exprs))))) init (clj/partition 2 (rseq (vec seq-exprs)))))
body (build `(~rf ~acc ~body-expr)) body (build `(~rf ~acc ~body-expr))
kvbody (when (pair? body-expr) (build `(~rf ~acc ~@body-expr))) kvbody (when (pair? body-expr) (build `(~rf ~acc ~@body-expr)))
fnsym (if (and (pair? binding) (not (some keyword? binding)) (not (some #{"&"} (filter symbol? binding)))) `kvrf `fn)] fnsym (if (and (pair? binding) (not (some keyword? binding)) (not (some #{'&} (filter symbol? binding)))) `kvrf `fn)]
(if kvbody (if kvbody
`(fn [~rf] `(fn [~rf]
(if-some [~rf (some-kvrf ~rf)] (if-some [~rf (some-kvrf ~rf)]