anchor.diff:      /// <param name="name">Name of spawned child actor</param>
       /// <param name="f">Used by actor for handling response for incoming request</param>
       /// <param name="overrides">Functions used to override standard actor lifetime</param>
  -    let spawnOvrd (actorFactory : IActorRefFactory) (name : string) (f : Actor<'Message> -> ContWrapper<'Message, 'Returned>)
  +    let spawnOvrd (actorFactory : IActorRefFactory) (name : string) (f : Actor<'Message> -> Cont<'Message, 'Returned>)
           (overrides : LifecycleOverride) : IActorRef = 
           spawnOptOvrd actorFactory name f [] overrides
  +
  +//    let (|Become|_|) (continuation: Cont<'Message, 'Returned>) =
  +//        match continuation with
  +//        | Func f -> 
  +//        | 
   
       /// <summary>
       /// Wraps provided function with actor behavior. 
       /// It will be invoked each time, an actor will receive a message. 
       /// </summary>
  -    let actorOf (fn : 'Message -> #ContWrapper<'Message, 'Returned>) (mailbox : Actor<'Message>) : ContWrapper<'Message, 'Returned> = 
  +    let actorOf (fn : 'Message -> #Cont<'Message, 'Returned>) (mailbox : Actor<'Message>) : Cont<'Message, 'Returned> = 
           let rec loop() = 
               actor { 
                   let! msg = mailbox.Receive()
  -                return fn msg 
  +                return! fn msg 
               }
           loop()
   
       /// <summary>
       /// Returns an actor effect causing no changes in message handling pipeline.
       /// </summary>
  -    let inline empty (_: 'Any) : ContWrapper<'Message, 'Returned> = ActorAction.Empty :> ContWrapper<'Message, 'Returned>
  +    let inline empty (out: 'Any) : Cont<'Message, 'Returned> = Return(out)
   
       /// <summary>
       /// Returns an actor effect causing actor to switch its behavior.
       /// </summary>
       /// <param name="next">New receive function.</param>
  -    let inline become (next) : ContWrapper<'Message, 'Returned> = Become(next) :> ContWrapper<'Message, 'Returned>+    let inline become (next) : Cont<'Message, 'Returned> = Func(next)
positive.code:         member __.BasePreRestart(exn, msg) = base.PreRestart (exn, msg)
          member __.BasePostRestart(exn) = base.PostRestart (exn)
  
          member __.Next (current : ContWrapper<'Message, 'Returned>) (context : Actor<'Message>) (message : obj) : ContWrapper<'Message, 'Returned> = 
              match message with
              | :? 'Message as msg -> 
                  match current with
                  | :? Become<'Message, 'Returned> as become -> become.Next msg
                  | _ -> current
              | other -> 
                  base.Unhandled other
                  current
  
          override x.PreStart() = 
              match overrides.PreStart with
  
negative.code:     /// <param name="f">Used by actor for handling response for incoming request</param>
      /// <param name="options">List of options used to configure actor creation</param>
      /// <param name="overrides">Functions used to override standard actor lifetime</param>
      let spawnOptOvrd (actorFactory : IActorRefFactory) (name : string) (f : Actor<'Message> -> Cont<'Message, 'Returned>) 
          (options : SpawnOption list) (overrides : LifecycleOverride) : IActorRef = 
          let e = ExpressionExt.ToExpression(fun () -> new FunActorExt<'Message, 'Returned>(f, overrides))
          let props = applySpawnOptions (Props.Create e) options
          actorFactory.ActorOf(props, name)
  
  