alists

2021-07-03 16:28:15 -07:00 · 2021-07-03 16:28:15 -07:00 · 7ced4e44dd
commit 7ced4e44dd
parent d986404ff0
1 changed files with 13 additions and 0 deletions
--- a/shell/data.limg
+++ b/shell/data.limg
@ -101,6 +101,19 @@
      if (f (car xs))
        (cons (car xs) 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 += inc)
  `(set ,var (,var + ,inc))])