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

small

Browse Source
This commit is contained in:
Vitor Santos Costa
2018-02-20 22:59:17 +00:00
parent e93c01f8e0
commit 3e71d171e7
9 changed files with 47 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
swi/library/prolog_xref.pl
View File

@@ -55,9 +55,7 @@
:- use_module(library(lists), [append/3, member/2]).
:- use_module(library(operators),
[pop_operators/0, push_op/3, push_operators/1]).
:- if(current_prolog_flag(dialect, swi)).
:- use_module(library(shlib), [current_foreign_library/2]).
:- endif.
:- use_module(library(prolog_source)).
:- use_module(library(option)).
:- use_module(library(error)).
@@ -121,12 +119,12 @@ called_by(on_signal(_,_,New), [New+1]) :-
:- expects_dialect(swi).
:- if(current_prolog_flag(dialect, swi)).
system_predicate(Goal) :-
functor(Goal, Name, Arity),
current_predicate(system:Name/Arity), % avoid autoloading
predicate_property(system:Goal, built_in), !.
:-endif.
% :- if(current_prolog_flag(dialect, swi)).
% system_predicate(Goal) :-
% functor(Goal, Name, Arity),
% current_predicate(system:Name/Arity), % avoid autoloading
% predicate_property(system:Goal, built_in), !.
% :-endif.
/********************************
* TOPLEVEL *
@@ -1452,4 +1450,3 @@ do_xref_source_file(Spec, File, Options) :-
access(read),
file_errors(fail)
], File), !.