Merge pull request #894 from misterfish/issue-751

Issue 751
gkz · Jun 23, 2016 · 97d7706 · 97d7706
2 parents 87daae6 + ad03579
commit 97d7706
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 0 deletions.
diff --git a/lib/ast.js b/lib/ast.js
diff --git a/src/ast.ls b/src/ast.ls
@@ -2674,6 +2674,7 @@ class exports.If extends Node
 # A labeled block or statement.
 class exports.Label extends Node
     (@label or \_, @it) ->
+        @carp "can't use label with a curried function (attempted label '#{@label}')" if @it.curried
         if fun = it instanceof [Fun, Class] and it or
              it.calling and it.it.head
             fun.name or fun <<< {name: @label, +labeled}

diff --git a/test/compilation.ls b/test/compilation.ls
@@ -35,6 +35,7 @@ compileThrows 'unmatched `]`' 3 '[{\n\n]}'
 
 compileThrows 'missing `)CALL`' 1 'f('
 
+compileThrows "can't use label with a curried function (attempted label 'abc')" 1 ':abc (a, b) --> a + b'
 
 throws '''
   empty range on line 1