(defn
liftContD
"chains an async action on to a deferred\n Must provide a goog.async.Deferred and action function that\n takes an initial value and a continuation fn to call with the result"
[deferred f]
(.then
deferred
(fn
[val]
(let
[new-def (Deferred.)]
(f val (fn* [p1__18508#] (.callback new-def p1__18508#)))
new-def))))