 constructorToJsField = (constr) ->
   constr.token[0...-1]
 
+# Compile consts
+
 compileConst = (token) ->
   "({'#{token.token}': true})"
-
-compileList = (elems) ->
-  # "[#{elems.join ', '}]"
-  "[#{elems.map(compileImpl).join ', '}]"
 
 compileFunctionCall = (op, args) ->
   fn = compileImpl op

      else
        name = node.token
        if macros[name]
          expandMacro name
        else
          [firstChar] = name
          if firstChar is '-'

isMap = (node) ->
  isTuple(node) and (elems = inside node; elems.length > 0) and elems[0].label is 'label'

# Compiling arrays, typles and map literals

compileList = (elems) ->
  # "[#{elems.join ', '}]"
  "[#{elems.map(compileImpl).join ', '}]"

compileMap = (elems) ->
  [constr, args...] = elems
  items = args.map(compileImpl).join ', '
