anchor.diff:                    Async ! {Reply, R}
             end),
   
  -    async_loop_wait_result(MRef, Child, Reply, []).
  +    Type = proplists:get_value(type, Opts, wait),
  +    async_loop_wait_result(Type, MRef, Child, Reply, []).
   
   maybe_register_with_parent_async(PDict) ->
       case lists:keyfind('$async', 1, PDict) of
  
positive.code: 
      SpawnFun(
        fun () ->
                async_init(Parent, PDict, Fun)
        end).
  
  start_many(Fun, Args) ->
      [start(fun () ->
  
negative.code: -include("ns_common.hrl").
  
  -export([start/1, start/2, start_many/2,
           perform/1, perform/2,
           abort/1, abort_many/1,
           send/2,
           with/2, with_many/3,
  