member was deterministic :(

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2142 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-03-12 19:18:29 +00:00
parent fda34985b9
commit 785ddd56af
1 changed files with 3 additions and 1 deletions

View File

@ -95,7 +95,7 @@ lists:memberchk(X,[_|L]) :-
% Element occurs in a known Set. In return for this limited use, it
% is more efficient when it is applicable.
lists:member(X,[X|_]) :- !.
lists:member(X,[X|_]).
lists:member(X,[_|L]) :-
lists:member(X,L).
@ -170,6 +170,8 @@ yap_hacks:cut_by(CP) :- '$$cut_by'(CP).
:- dynamic generate_message_hook/3.
:- multifile swi:swi_predicate_table/4.
file_search_path(library, Dir) :-
library_directory(Dir).
file_search_path(swi, Home) :-