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

Make internal functions hidden

Browse Source
This commit is contained in:
Scott Olsen 2020-04-19 12:00:54 -04:00
parent b2bb8d0e71
commit d1155aaed8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/Macros.carp
View File

@ -167,6 +167,7 @@
x
(reduce f (f x (car xs)) (cdr xs))))
(hidden apply-internal)
(defndynamic apply-internal [argument-list acc]
(if (empty? argument-list)
acc
@ -196,11 +197,13 @@
(let [function-name (list (cadr f))]
(apply-internal argument-list function-name)))
(hidden map-internal)
(defndynamic map-internal [f xs acc]
(if (empty? xs)
acc
(map-internal f (cdr xs) (cons-last (f (car xs)) acc))))
(hidden zip-internal)
(defndynamic zip-internal [f forms acc]
(if (reduce or-internal false (map-internal empty? forms (list)))
acc