cosmetic multiline display change

This commit is contained in:
Anton Dyudin 2015-09-03 18:40:30 -07:00
parent 4f23f1b391
commit d051e2347a

View File

@ -689,7 +689,7 @@
%&
?~ p.doy
(he-diff [%err (lent txt)])
=+ old=(weld "> " (tufa buf.say))
=+ old=(weld ?~(buf "> " " ") (tufa buf.say))
=^ cal say (~(transmit cs say) [%set ~])
=. +>.$ (he-diff %mor txt/old nex/~ det/cal ~)
?- -.u.p.doy