anchor.diff:  	    {fail, {other_result, X}}
       end.
   
  -pcompose_worker(Parent, Validator, Tree, StoreMod) ->
  +pcompose_worker(Parent, Validator, Tree, StoreMod) when is_function(Validator,2) ->
       Result = try
   		 Validator(Tree, StoreMod)
   	     catch
   		 Kind:Reason -> {fail, {Kind, Reason}}
   	     end,
  -    Parent ! {result_for, self(), is, Result}.
  +    Parent ! {result_for, self(), Result}.
   
   -ifdef(TEST).
   -include_lib("eunit/include/eunit.hrl").
  
positive.code: -module(wallaroo_validators).
  -export([succeed/2, compose/1, pcompose/1]).
  
  succeed(_Tree, _StoreMod) ->
      ok.
  
  compose(Validators) when is_list(Validators) ->
      Srotadilav = lists:reverse(Validators),
      lists:foldl(fun compose_once/2, fun succeed/2, Srotadilav).
  
  compose_once(Fun, AccFun) when is_function(Fun, 2), is_function(AccFun, 2) ->
      fun(Tree, StoreMod) ->
  	    case Fun(Tree, StoreMod) of
  
negative.code: 	    end
      end.
  
  -spec pcompose([validator()]) -> validator().		     
  pcompose(Validators) when is_list(Validators) ->
      fun(Tree, StoreMod) ->
  	    Self = self(),
  