From c1fff5ec143a3fb658357ec3f312ca7fcd40ef01 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 6 Jun 2021 12:55:06 -0700
Subject: shell: fleshing out the 'standard library'

Based loosely on Arc's arc.arc:
  http://arclanguage.org
  https://github.com/arclanguage/anarki/blob/official/arc.arc
---
 shell/data.limg | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'shell/data.limg')

diff --git a/shell/data.limg b/shell/data.limg
index fac0e683..c85dd050 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -5,6 +5,16 @@
     (def . [(mac (def (name . params) . body)
   `(define ,name (fn ,params ,@body)))])
     (do . [(mac (do . body) `((fn () ,@body)))])
+    (list . [(def (list . args) args)])
+    (len . [(def (len l)
+  (if (no l)
+    0
+    (+ 1 (len (cdr l)))))])
+    (map1 . [(def (map1 f xs)
+  (if (no xs)
+    ()
+    (cons (f (car xs))
+          (map1 f (cdr xs)))))])
     (let . [(mac (let var val . body)
   `((fn (,var) ,@body) ,val))])
     (when . [(mac (when cond . body)
-- 
cgit 1.4.1-2-gfad0