diff options
| -rw-r--r-- | shell/data.limg | 4 |
1 files changed, 3 insertions, 1 deletions
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 |