sort clauses of $fork type pretty-printing

- fixing unit/tree special cases
- generally show atom before cells and $% cases alphabetically
This commit is contained in:
Anton Dyudin 2016-03-24 17:30:57 -07:00
parent a1df9b2a59
commit 676aa77afd

View File

@ -7783,7 +7783,7 @@
?^(p.sut yad [p.yad [%face p.sut q.yad]])
::
{$fork *}
=+ yed=(~(tap in p.sut))
=+ yed=(sort (~(tap in p.sut)) aor)
=- [p [%pick q]]
|- ^- {p/{p/(map span @) q/(map @ wine)} q/(list wine)}
?~ yed