           else
             escapedName = validIdentifier name
             if not node.label
-              defLocation = lookupIdentifier escapedName, node
+              defLocation = lookupIdentifier name, node
               if not defLocation
                 throw new Error "#{name} used but not defined"
             escapedName


compileImpl = (node, hoistableWheres = []) ->
  # For now special case match to allow definition hoisting up one level
  if Array.isArray(node) and node.length > 0
    [op, args...] = inside node
    if op.type is 'operator' and op.token is 'match'
      return trueMacros[op.token] hoistableWheres, args...


compileWheresInModule = (ast) ->
  ast.scope = topScopeDefines()
  wheres = checkEvenness sortWheres whereList inside ast
  "#{wheres.map(compileExportedDef).join '\n'}"

compileExportedDef = ([name, def]) ->
