   mapKeys lookupDefinitions, moduleSet
 
 contextWithDependencies = (modules) ->
-  ctx: injectedContext modules, yes
+  ctx: (injectedContext modules, yes)
   modules: setToArray modules
 
 moduleDependencies = (moduleName) ->

  #     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")
