implement caching

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/array.fnl b/lib/array.fnl
index 8b81c5c..8af6244 100644
--- a/lib/array.fnl
+++ b/lib/array.fnl
@@ -53,6 +53,16 @@
       (lua "return true")))
   false)
 
+(fn list [obj]
+  (local result [])
+  (var cursor 1)
+  (each [_ v (pairs obj)]
+    (tset result cursor v)
+    (set cursor (+ 1 cursor)))
+  ;; sort so we always return the same list for the same object
+  (table.sort result)
+  result)
+
 (local join table.concat)
 
-{: sort : concat : diff : unique : flatten : join : contains}
+{: sort : concat : diff : unique : flatten : join : contains : list}