| { Check if the correct version } if Version <> TP_EXTERNAL_VERSION then begin Result := TP_HALT; { Return HALT because incorrect version } Exit; end; { Check the arity of the prolog predicate } if Call^._Arity <> 1 then begin Result := TP_UNKNOWN; { Not send_event/1, so return UNKNOWN predicate } Exit; end; |