From 15b1c2651c9f0ef00e6018bc07db3ae91e5af455 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 1 Aug 2021 10:22:16 -0700
Subject: .

---
 shell/data.limg | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'shell')

diff --git a/shell/data.limg b/shell/data.limg
index ace492f6..03aa276d 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -40,6 +40,7 @@
     (cadr . [define cadr (compose car cdr)])
     (cddr . [define cddr (compose cdr cdr)])
     (cdar . [define cdar (compose cdr car)])
+    (val . [define val cadr])
     (some . [def (some f xs)
   if (no xs)
     ()
@@ -112,9 +113,10 @@
   aif (assoc alist key)
     (cdr it)
     ()])
-    (++ . [mac (++ var) `(set ,var (,var + 1))])
     (+= . [mac (var += inc)
   `(set ,var (,var + ,inc))])
+    (++ . [mac (++ var)
+  `(+= ,var 1)])
     (for . [mac (for var init test update . body)
   `(let ,var ,init
      (while ,test
-- 
cgit 1.4.1-2-gfad0