clay: reduce printfs

This commit is contained in:
Philip Monk 2022-05-03 16:20:36 -07:00
parent 7e17ae25fb
commit c96e5bbf09

View File

@ -1220,9 +1220,9 @@
=^ =soak nub =^ =soak nub
?^ got=(~(get by cache.nub) leak) ?^ got=(~(get by cache.nub) leak)
=/ refs ?:(spilt 0 1) =/ refs ?:(spilt 0 1)
=/ tape-1 "ford: cache {<pour.leak>}: adding {<refs>}" :: %- =/ tape-1 "ford: cache {<pour.leak>}: adding {<refs>}"
=/ tape-2 ", giving {<(add refs refs.u.got)>}" :: =/ tape-2 ", giving {<(add refs refs.u.got)>}"
%- (slog leaf+(welp tape-1 tape-2) ~) :: (slog leaf+(welp tape-1 tape-2) ~)
=? cache.nub !=(0 refs) =? cache.nub !=(0 refs)
(~(put by cache.nub) leak [(add refs refs.u.got) soak.u.got]) (~(put by cache.nub) leak [(add refs refs.u.got) soak.u.got])
[soak.u.got nub] [soak.u.got nub]
@ -1236,9 +1236,9 @@
?~ deps ?~ deps
[soak nub] [soak nub]
=/ got (~(got by cache.nub) i.deps) =/ got (~(got by cache.nub) i.deps)
%- =/ tape-1 "ford: cache {<pour.leak>} for {<pour.i.deps>}" :: %- =/ tape-1 "ford: cache {<pour.leak>} for {<pour.i.deps>}"
=/ tape-2 ": bumping to ref {<refs.got>}" :: =/ tape-2 ": bumping to ref {<refs.got>}"
(slog leaf+(welp tape-1 tape-2) ~) :: (slog leaf+(welp tape-1 tape-2) ~)
=. cache.nub (~(put by cache.nub) i.deps got(refs +(refs.got))) =. cache.nub (~(put by cache.nub) i.deps got(refs +(refs.got)))
$(deps t.deps) $(deps t.deps)
?: spilt ?: spilt