carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

Use append in apply

Browse Source 
No need for extra functions :)
This commit is contained in:
Scott Olsen 2020-04-19 12:04:26 -04:00
parent d1155aaed8
commit 0c512c5eaf
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/Macros.carp
View File

@ -167,13 +167,6 @@
x
(reduce f (f x (car xs)) (cdr xs))))
(hidden apply-internal)
(defndynamic apply-internal [argument-list acc]
(if (empty? argument-list)
acc
(apply-internal (cdr argument-list) (append acc (list (car
argument-list))))))
(doc apply
"Applies the function `f` to the provided argument list, passing each value
in the list as an argument to the function.")
@ -195,7 +188,7 @@
;; the quoted function name argument in map-internal or the unquoted one in
;; apply, we can't use zip and map-internal in map.
(let [function-name (list (cadr f))]
(apply-internal argument-list function-name)))
(append function-name argument-list)))
(hidden map-internal)
(defndynamic map-internal [f xs acc]