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:
parent
fda34985b9
commit
785ddd56af
@ -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) :-
|
||||
|
Reference in New Issue
Block a user