fix compsing functions, fixes #702

gkz · Apr 9, 2015 · 5fab25a · 5fab25a
1 parent 7c473dd
commit 5fab25a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/lib/ast.js b/lib/ast.js
diff --git a/src/ast.ls b/src/ast.ls
@@ -1402,7 +1402,7 @@ class exports.Binary extends Node
     op = @op
     functions = [@first]
     x = @second
-    while x instanceof Binary and x.op is op
+    while x instanceof Binary and x.op is op and not x.partial
       functions.push x.first
       x = x.second
     functions.push x

diff --git a/test/function.ls b/test/function.ls
@@ -614,6 +614,9 @@ do ->
   a = -> 100
   eq 2, c!
 
+f = ((x) -> (* x)) >> ((+ 1) >>)
+eq 10 (f 2) 4
+
 ### infix calls
 add = (x, y) --> x + y
 times = (x, y) --> x * y