add array and struct constructors

1 files changed, 22 insertions, 0 deletions

diff --git a/alv-lib/array.moon b/alv-lib/array.moon
new file mode 100644
index 0000000..752b1ff
--- /dev/null
+++ b/alv-lib/array.moon
@@ -0,0 +1,22 @@
+import PureOp, Constant, T, Array, val, evt from require 'alv.base'
+
+any = val! / evt!
+
+array = Constant.meta
+  meta:
+    name: 'array'
+    summary: "Construct an array."
+    examples: { '(array a b c…)' }
+    description: "Produces an array of values."
+
+  value: class extends PureOp
+    pattern: any!*0
+    type: (args) => Array #args, args[1]\type!
+
+    tick: =>
+      args = @unwrap_all!
+      @out\set args
+
+{
+  :array
+}