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

fixes

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-08-05 16:37:02 -05:00
parent fdfefbbd46
commit 0f19d518f2
1 changed files with 23 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/listing.yap
View File

@ -63,8 +63,8 @@ listing :-
Mod \= prolog, Mod \= prolog,
Mod \= system, Mod \= system,
\+ '$hidden_atom'( Mod ), \+ '$hidden_atom'( Mod ),
'$current_predicate'(_,Mod,Pred, user), current_predicate( Name, Mod:Pred ),
'$undefined'(Pred, prolog), % skip predicates exported from prolog. \+ '$undefined'(Pred, Mod), % skip predicates exported from prolog.
functor(Pred,Name,Arity), functor(Pred,Name,Arity),
'$listing'(Name,Arity,Mod,Stream), '$listing'(Name,Arity,Mod,Stream),
fail. fail.
@ -108,7 +108,9 @@ listing(Stream, [MV|MVs]) :- !,
). ).
'$do_listing'(Stream, M, Name/Arity) :- '$do_listing'(Stream, M, Name/Arity) :-
( current_predicate(M:Name/Arity), ( current_predicate(Name, M:Pred),
functor( Pred, Name, Arity),
\+ '$undefined'(Pred, M),
'$listing'(Name,Arity,M,Stream), '$listing'(Name,Arity,M,Stream),
fail fail
; ;