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

Merge pull request #5 from eraserhd/for-fix

Browse source 
Fix for "&"
This commit is contained in:
Christophe Grand 2016-09-19 09:39:48 +02:00 committed by GitHub
commit 56db5ca016
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)))))
body (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
`(fn [~rf]
(if-some [~rf (some-kvrf ~rf)]