mirror of
https://github.com/janet-lang/janet
synced 2025-02-26 04:40:01 +00:00
commit
cd2a55e268
@ -180,8 +180,8 @@
|
|||||||
(defmacro cond
|
(defmacro cond
|
||||||
`Evaluates conditions sequentially until the first true condition
|
`Evaluates conditions sequentially until the first true condition
|
||||||
is found, and then executes the corresponding body. If there are an
|
is found, and then executes the corresponding body. If there are an
|
||||||
odd number of forms, the last expression is executed if no forms
|
odd number of forms, and no forms are matched, the last expression
|
||||||
are matched. If there are no matches, return nil.`
|
is executed. If there are no matches, return nil.`
|
||||||
[& pairs]
|
[& pairs]
|
||||||
(defn aux [i]
|
(defn aux [i]
|
||||||
(def restlen (- (length pairs) i))
|
(def restlen (- (length pairs) i))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user