pass in op as argument for bound access

gkz · Dec 6, 2013 · 6457566 · 6457566
1 parent 7806bb9
commit 6457566
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/lib/ast.js b/lib/ast.js
diff --git a/src/ast.ls b/src/ast.ls
@@ -1065,7 +1065,7 @@ class exports.Binary extends Node
       | \<<< \<<<< => return Import first, second, op is \<<<<
       | \<|        => return Block first .pipe second, op
       | \|>        => return Block second .pipe first, \<|
-      | \. \.~     => return Chain first .add Index second
+      | \. \.~     => return Chain first .add Index second, op
     import {op, first, second}
 
   children: <[ first second ]>

diff --git a/test/function.ls b/test/function.ls
@@ -645,6 +645,8 @@ eq 2 ((.) obj) \a
 
 ary = [1 2]
 eq '1,2,3' "#{(.~concat) ary <| 3}"
+concat = (.~) ary, 'concat'
+eq '1,2,3' "#{concat 3}"
 
 ### partialization
 three-add = (x, y, z) -> x + y + z