alists
This commit is contained in:
parent
d986404ff0
commit
7ced4e44dd
|
@ -101,6 +101,19 @@
|
||||||
if (f (car xs))
|
if (f (car xs))
|
||||||
(cons (car xs) rest)
|
(cons (car xs) rest)
|
||||||
rest])
|
rest])
|
||||||
|
(alist? . [def (alist? x)
|
||||||
|
(and (cons? x)
|
||||||
|
(cons? (car x)))])
|
||||||
|
(assoc . [def (assoc alist key)
|
||||||
|
if (no alist)
|
||||||
|
()
|
||||||
|
if (key = (caar alist))
|
||||||
|
(car alist)
|
||||||
|
(assoc (cdr alist) key)])
|
||||||
|
(get . [def (get alist key)
|
||||||
|
aif (assoc alist key)
|
||||||
|
(cdr it)
|
||||||
|
()])
|
||||||
(++ . [mac (++ var) `(set ,var (,var + 1))])
|
(++ . [mac (++ var) `(set ,var (,var + 1))])
|
||||||
(+= . [mac (var += inc)
|
(+= . [mac (var += inc)
|
||||||
`(set ,var (,var + ,inc))])
|
`(set ,var (,var + ,inc))])
|
||||||
|
|
Loading…
Reference in New Issue