mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-29 03:19:54 +00:00
Code Issues 1 Releases Wiki Activity

Fix comp case with arity of exactly 5.

Browse Source
This commit is contained in:
Calvin Rose 2019-08-03 14:53:14 -05:00
parent 2b295a5459
commit 02ce3031e9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/boot/boot.janet
View File

@ -497,9 +497,9 @@
2 (let [[f g] functions] (fn [& x] (f (g ;x)))) 2 (let [[f g] functions] (fn [& x] (f (g ;x))))
3 (let [[f g h] functions] (fn [& x] (f (g (h ;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)))))) 4 (let [[f g h i] functions] (fn [& x] (f (g (h (i ;x))))))
(let [[f g h i j] functions] (let [[f g h i] functions]
(comp (fn [x] (f (g (h (i (j x)))))) (comp (fn [x] (f (g (h (i x)))))
;(tuple/slice functions 5 -1))))) ;(tuple/slice functions 4 -1)))))
(defn identity (defn identity
"A function that returns its first argument." "A function that returns its first argument."