anchor.diff:          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
  
positive.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> -> ContWrapper<'Message, 'Returned>) 
          (options : SpawnOption list) (overrides : LifecycleOverride) : IActorRef = 
          let unwrapCont (f : Actor<'Message> -> ContWrapper<'Message, 'Returned>) : Actor<'Message> -> Cont<'Message, 'Returned> =
              let continuation a = f(a).Continuation(fun m -> )
              continuation
          let e = ExpressionExt.ToExpression(fun () -> new FunActorExt<'Message, 'Returned>(unwrapCont f, overrides))
          let props = applySpawnOptions (Props.Create e) options
          actorFactory.ActorOf(props, name)
  
  
negative.code:     /// <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> -> 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 -> #Cont<'Message, 'Returned>) (mailbox : Actor<'Message>) : Cont<'Message, 'Returned> = 
          let rec loop() = 
              actor { 
                  let! msg = mailbox.Receive()
                  return! fn msg 
              }
          loop()
  
      /// <summary>
      /// Returns an actor effect causing no changes in message handling pipeline.
      /// </summary>
      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) : Cont<'Message, 'Returned> = Func(next)