 retrieve = (expression, newForm) ->
   expression.tea = newForm.tea
   expression.malformed = newForm.malformed
+  expression.label = newForm.label if newForm.label
   if newForm.tea?.type.origin is newForm
     markOrigin newForm.tea.type, expression
 

        else
          (jsArray (map serializeAst, ast))
      else
        serialized = (jsValue (JSON.stringify ast))
        ast.label = 'const'
        serialized
    serializeAst expression

ms[','] = ms_comma = (ctx, call) ->

            ctx.resetAssignTo()
            precs)
      else
        commedAtom ast, ->
          ast.label = 'const'
          precs: [(cond_ (jsBinary "===",
              (jsAccess matched, "symbol"), toJsString ast.symbol))]

    matchAst expression
  else
