 callJsMethodCompile = (ctx, call) ->
   [dotMethod, object, args...] = _validTerms call
   labelOperator dotMethod
-  call.tea = toConstrained markOrigin jsType, call
-  assignCompile ctx, call,
+  compiled =
     if object
       if /^.-/.test dotMethod.symbol
         (jsAccess (termCompile ctx, object), dotMethod.symbol[2...])

  #     found-or-equals (fn [found item]
  #       (= what item))

  'nested pattern matching'
  """
    f (fn [x]

    else
      malformed ctx, call, 'Missing an object'
      jsNoop()
  constraints =
    if object
      (concatMap (__ _constraints, _tea), (join [object], args))
    else
      []
  call.tea = new Constrained constraints, markOrigin jsType, call
  assignCompile ctx, call, compiled

ms['set!'] = ms_doset = (ctx, call) ->
  # (set! (.innerHTML e) "Ahoj")
