gall: print less during %doff

This commit is contained in:
fang 2022-08-11 17:04:44 +02:00
parent 39cd895a55
commit 06b7f52755
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -1785,9 +1785,10 @@
::
=/ let (~(got by boar.yoke) wyr dok)
=/ non 0
=/ pre "gall: +ap-doff {<[agent-name wyr dok]>}"
=- ((slog leaf+"{pre} done" ~) -)
%- (slog leaf+"{pre} {<,.let>} total..." ~)
|- ^+ ap-core
%- =- (slog leaf+- ~)
"gall: +ap-doff {<[agent-name wyr dok]>} {<non>}/{<,.let>}"
=. ap-core (ap-pass [(scot %ud non) wyr] %agent dok %leave ~)
?: (lth non let)
$(non +(non))