From d42e1240e5c5a351c431a27ebc210810d670405d Mon Sep 17 00:00:00 2001 From: Jason Felice Date: Sun, 18 Sep 2016 13:08:46 -0400 Subject: [PATCH] Fix for "&" --- src/net/cgrand/xforms.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/net/cgrand/xforms.clj b/src/net/cgrand/xforms.clj index 9c7f8ce..6c1b60f 100644 --- a/src/net/cgrand/xforms.clj +++ b/src/net/cgrand/xforms.clj @@ -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)]