dill,clay: minor printing cleanup

This commit is contained in:
Ted Blackman 2021-07-14 01:51:35 +03:00
parent 529502543b
commit f4232ce415
2 changed files with 4 additions and 1 deletions

View File

@ -4083,7 +4083,7 @@
:: ::
!. !.
=- ?: ?=(%& -<) p.- =- ?: ?=(%& -<) p.-
((slog leaf+"gall: read-at-aeon fail {<mun>}" p.-) [[~ ~] fod]) ((slog leaf+"clay: read-at-aeon fail {<mun>}" p.-) [[~ ~] fod])
%- mule |. %- mule |.
?- care.mun ?- care.mun
%d %d

View File

@ -267,6 +267,9 @@
^+ +> ^+ +>
?- sih ?- sih
[%gall %onto *] [%gall %onto *]
:: NOTE effects during initial boot sequence are ignored,
:: so :hood compilation errors will not print; slog if desired
::
:: ~& [%take-gall-onto +>.sih] :: ~& [%take-gall-onto +>.sih]
?- -.+>.sih ?- -.+>.sih
%| (crud %onto p.p.+>.sih) %| (crud %onto p.p.+>.sih)