carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-26 13:51:50 +03:00
Code Issues Projects Releases Wiki Activity

Fix private? and hidden?.

Browse Source
This commit is contained in:
Jorge Acereda 2019-09-17 19:34:34 +02:00
parent bf8f4c04e2
commit 99ffd8efb7
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/Macros.carp
View File

@ -29,14 +29,12 @@
(list 'meta-set! name "todo" value))
(doc private? "Is this binding private?")
(todo private? "This is buggy, will report true when meta is set to 'false'!")
(defmacro private? [name]
(list 'not (list '= () (list 'meta name "private"))))
(list 'not (list 'list? (meta name "private"))))
(doc hidden? "Is this binding hidden?")
(todo hidden? "This is buggy, will report true when meta is set to 'false'!")
(defmacro hidden? [name]
(list 'not (list '= () (list 'meta name "hidden"))))
(list 'not (list 'list? (meta name "hidden"))))
(defndynamic annotate-helper [name annotation]
(cons annotation (meta name "annotations")))
@ -86,7 +84,7 @@
(defmacro e [form]
(eval-internal form))
(defndynamic list-to-array-internal [xs acc]
(if (= 0 (length xs))
acc
@ -97,7 +95,7 @@
acc
(collect-into-internal (cdr xs) (append acc (f (car xs))) f)))
(doc collect-into
(doc collect-into
"Transforms a dynamic data literal into another, preserving order")
(defndynamic collect-into [xs f]
(list 'quote