rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ENHANCED: more readable indentation of nested disjunctions

Browse Source 
Example:

    ?- portray_clause((h :- a ; b ; c)).
    h :-
       (  a
       ;  b
       ;  c
       ).
       true.
This commit is contained in:
Markus Triska
2021-03-04 21:38:39 +01:00
parent c5749cbbb1
commit d92951ba5b
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/lib/format.pl
View File

@@ -528,6 +528,9 @@ else_branch(Else, I, VNs) -->
body_(If, C, C, VNs), " ->\n", body_(If, C, C, VNs), " ->\n",
body_(Then, 0, C, VNs), "\n", body_(Then, 0, C, VNs), "\n",
else_branch(NextElse, I, VNs) else_branch(NextElse, I, VNs)
; { nonvar(Else), Else = ( A ; B ) } ->
body_(A, C, C, VNs), "\n",
else_branch(B, I, VNs)
; body_(Else, C, C, VNs), "\n", ; body_(Else, C, C, VNs), "\n",
indent_to(0, I), indent_to(0, I),
")" ")"