12 lines
No EOL
286 B
Text
12 lines
No EOL
286 B
Text
(seq
|
|
;; builtins
|
|
(def if-eq builtins.cond.if_eq)
|
|
(def match builtins.cond.match)
|
|
(def if-has builtins.cond.if_has)
|
|
|
|
(defmacro if [cond then]
|
|
(if-eq (:false $cond) (seq $%&) (seq $then)))
|
|
|
|
(defmacro unless [cond then]
|
|
(if-eq (:false $cond) (seq $then) (seq $%&)))
|
|
) |