The function is actually shorter without cond->: (conj (if first? args (vec
args)) x)

Take care,
Moe

On Fri, Aug 28, 2015 at 1:59 PM, Akhil Wali <green.transis...@gmail.com>
wrote:

> That's pretty neat!
> But then -> will be implemented using cond->, which is slightly off.
>
> On Friday, August 28, 2015 at 6:07:46 PM UTC+5:30, Moe Aboulkheir wrote:
>>
>> On Fri, Aug 28, 2015 at 12:37 PM, Akhil Wali <green.tr...@gmail.com>
>> wrote:
>>
>>>
>>> This does work, but it's a bit of whammy.
>>> Anyone with suggestions for improvement?
>>>
>>
>> I went over this quickly, though it seems to work OK:
>>
>> (defn threading [x first? forms]
>>   (reduce
>>    (fn [x form]
>>      (if (seq? form)
>>        (let [[op & args] form
>>              args (conj (cond-> args (not first?) vec) x)]
>>          (apply list op args))
>>        (list form x)))
>>    x forms))
>>
>> (defmacro -> [x & forms]
>>   (threading x true forms))
>>
>> (defmacro ->> [x & forms]
>>   (threading x false forms))
>>
>> Take care,
>> Moe
>>
>> --
> You received this message because you are subscribed to the Google
> Groups "Clojure" group.
> To post to this group, send email to clojure@googlegroups.com
> Note that posts from new members are moderated - please be patient with
> your first post.
> To unsubscribe from this group, send email to
> clojure+unsubscr...@googlegroups.com
> For more options, visit this group at
> http://groups.google.com/group/clojure?hl=en
> ---
> You received this message because you are subscribed to the Google Groups
> "Clojure" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to clojure+unsubscr...@googlegroups.com.
> For more options, visit https://groups.google.com/d/optout.
>

-- 
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your 
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
--- 
You received this message because you are subscribed to the Google Groups 
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

Reply via email to