%
% is_list/1 for ECLiPSe
%
% *** How can you imagine a system like ECLiPSe doesn't have is_list/1 !!!
%

:- module(is_list,[is_list/1]).

is_list(X) :-
	nonvar(X),
	X=[],
	!.

is_list(X) :-
	nonvar(X),
	X=[_|_].

