:- object(callable,
extends(term)).
:- info([
version is 1.1,
author is 'Paulo Moura',
date is 2007/4/29,
comment is 'Callable term type predicates.']).
valid(Callable) :-
( atom(Callable) ->
true
; compound(Callable)
).
:- end_object.
