support unary operator spread over objects

Author: rhendric

lib/ast.js

@@ -1241,19 +1241,23 @@ class exports.Unary extends Node
         if o.level < LEVEL_CALL then sn(this, ...code) else sn(this, "(", ...code, ")")
 
     # `^delete ...o[p, ...q]` => `[^delete o[p], ...^delete o[q]]`
+    # `^delete ...o{p, ...q}` => `{p: ^delete o[p], ...^delete o[q]}`
     compile-spread: (o) ->
         {it} = this
         ops = [this]
         while it instanceof constructor, it.=it then ops.push it
         return '' unless it instanceof Splat
-                  and it.=it.expand-slice(o)unwrap! instanceof Arr
+                  and it.=it.expand-slice(o)unwrap! instanceof List
+        ob = it instanceof Obj
         them = it.items
         for node, i in them
             node.=it if sp = node instanceof Splat
+            node.=val if ob and not sp
             for op in ops by -1 then node = constructor op.op, node, op.post
-            them[i] = if sp then lat = Splat node else node
+            node = lat = Splat node if sp
+            if ob and not sp then them[i].val = node else them[i] = node
         if not lat and (@void or not o.level)
-            it = Block(them) <<< {@front, +void}
+            it = Block(if ob then [..val for them] else them) <<< {@front, +void}
         it.compile o, LEVEL_PAREN
 
     # `v = delete o.k`

src/ast.ls

@@ -257,6 +257,13 @@ eq 3, a.2
 fn = null
 eq void fn? do then 4;5
 
+loaders =
+  a: -> 1
+  b: -> 2
+  more: -> c: 3, d: 4
+x = do ...loaders{a, b, ...more}
+deep-equal {a: 1 b: 2 c: 3 d: 4} x
+
 
 ### `import`
 x = 'xx'
@@ -371,6 +378,11 @@ a = delete a.0
 eq 1 a
 eq 0 b.0
 
+x = a: 1 b: 2 c: 3
+y = delete ...x{a, z: b}
+deep-equal {c: 3} x
+deep-equal {a: 1, z: 2} y
+
 ### `jsdelete`
 
 x =
@@ -379,6 +391,13 @@ x =
 ok delete! x.1
 ok not delete! Math.PI
 
+x = a: 1 b: 2 c: 3
+Object.defineProperty x, \d, writable: false, enumerable: true
+deep-equal {+a, +b} delete! ...x{a, b}
+deep-equal {c: 3 d: undefined} x
+deep-equal {+c, -d} delete! ...x{c, d}
+deep-equal {d: undefined} x
+
 
 ### [[Class]] sniffing
 eq \RegExp typeof! /^/
@@ -496,6 +515,16 @@ deep-equal [1 2] x
 eq 2 a
 eq 3 b
 
+o = a: 1 b: 2 c: 3
+x = ...o{a, b}++
+deep-equal {a: 1 b: 2} x
+deep-equal {a: 2 b: 3 c: 3} o
+
+o = a: 1 b: 2 c: 3
+x = ++...o{a, b}
+deep-equal {a: 2 b: 3} x
+deep-equal {a: 2 b: 3 c: 3} o
+
 
 ### Overloaded
 a = b = [0 1]