Fix comp case with arity of exactly 5.
2 (let [[f g] functions] (fn [& x] (f (g ;x))))
3 (let [[f g h] functions] (fn [& x] (f (g (h ;x)))))
4 (let [[f g h i] functions] (fn [& x] (f (g (h (i ;x))))))
- (let [[f g h i j] functions]
- (comp (fn [x] (f (g (h (i (j x))))))
- ;(tuple/slice functions 5 -1)))))
+ (let [[f g h i] functions]
+ (comp (fn [x] (f (g (h (i x)))))
+ ;(tuple/slice functions 4 -1)))))
(defn identity
"A function that returns its first argument."
