slog %crud tanks in %dill when we don't have a duct

This commit is contained in:
Joe Bryan 2018-08-02 13:06:24 -04:00
parent d91b0422ac
commit 26109c4a72

View File

@ -530,8 +530,11 @@
[:_(moz [(need hey.all) %give %init p.q.hic]) ..^$]
=+ nus=(ax hen q.hic)
?~ nus
~& [%dill-no-flow q.hic]
[~ ..^$]
?. ?=(%crud -.q.hic)
~& [%dill-no-flow q.hic]
[~ ..^$]
~& [%dill-no-flow %crud p.q.hic]
[((slog (flop q.q.hic)) ~) ..^$]
=^ moz all abet:(call:u.nus q.hic)
[moz ..^$]
::