diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some SWI predicates became system predicate. Add stubs for $ predicates.

This commit is contained in:
Vitor Santos Costa 2009-11-23 10:12:10 +00:00
parent c6406b822b
commit 025ee58f58
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
library/dialect/swi.yap
View File

@ -321,10 +321,6 @@ prolog:atom_concat(A,B,C) :- atomic_concat(A,B,C).
:- hide(update_mutable).
prolog:source_location(File,Line) :-
prolog_load_context(file, File),
prolog_load_context(term_position, '$stream_position'(_,Line,_)).
% copied from SWI lists library.
lists:intersection([], _, []) :- !.
lists:intersection([X|T], L, Intersect) :-
@ -335,9 +331,6 @@ lists:intersection([_|T], L, R) :-
lists:intersection(T, L, R).
prolog:(Term1 =@= Term2) :-
variant(Term1, Term2), !.
% copied from SWI's boot/apply library
:- module_transparent
mpl/2,
@ -410,3 +403,11 @@ prolog:compile_aux_clauses([Cl|Cls]) :-
% fix different semantics for arg/3.
user:goal_expansion(arg(X,Y,Z),arg:genarg(X,Y,Z)) :-
nonvar(X), !.
prolog:'$set_source_module'(Source0, SourceF) :-
prolog_load_context(module, Source0),
module(SourceF).
prolog:'$declare_module'(_, _, _, _, _).
prolog:'$set_predicate_attribute'(_, _, _).