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

fix portray_clause(a(1))

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@669 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-10-31 17:35:24 +00:00
parent 33a7448b24
commit ae570afa71
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/listing.yap
View File

@ -77,12 +77,16 @@ portray_clause(_).
'$beautify_vars'(Pred), '$beautify_vars'(Pred),
writeq(Stream, Pred), writeq(Stream, Pred),
'$format'(Stream, ".~n", []). '$format'(Stream, ".~n", []).
'$portray_clause'(Stream, (Pred:-Body)) :- '$portray_clause'(Stream, (Pred:-Body)) :- !,
'$beautify_vars'((Pred:-Body)), '$beautify_vars'((Pred:-Body)),
writeq(Stream, Pred), writeq(Stream, Pred),
'$format'(Stream, " :-", []), '$format'(Stream, " :-", []),
'$write_body'(Body, 3, ',', Stream), '$write_body'(Body, 3, ',', Stream),
'$format'(Stream, ".~n", []). '$format'(Stream, ".~n", []).
'$portray_clause'(Stream, Pred) :- !,
'$beautify_vars'(Pred),
writeq(Stream, Pred),
'$format'(Stream, ".~n", []).
'$write_body'(X,I,T,Stream) :- var(X), !, '$write_body'(X,I,T,Stream) :- var(X), !,
'$beforelit'(T,I,Stream), '$beforelit'(T,I,Stream),