/*
 * @(#)$Id: fertilize,v 1.1 1994/09/16 09:33:29 dream Exp $
 *
 * $Log: fertilize,v $
 * Revision 1.1  1994/09/16 09:33:29  dream
 * Initial revision
 *
 */

        % The fertilize/2 method embodies both strong and weak
	% fertilization. 
	%
method(fertilize(Type,Ms),
       H==>G,
       [ 
        ((Type = strong,
          applicable_submethod(H==>G,fertilization_strong(Ms),_,NewG))
         v
         (Type = weak,
          applicable_submethod(H==>G,fertilization_weak(Ms),_,NewG))
        )
       ],
       [],
       NewG,
       fertilize(Type,Ms)
      ).
