suppresses %clay file-change printfs for initial filesystem
{$warp p/ship q/riff} ::
{$werp p/ship q/ship r/riff} ::
== == ::
- $: $d ::
- $% {$flog p/{$crud p/@tas q/(list tank)}} :: to %dill
+ $: $d :: to %dill
+ $% $: $flog ::
+ $% {$crud p/@tas q/(list tank)} ::
+ {$text p/tape} ::
+ == == ::
== == ::
$: $f ::
$% [%build live=? schematic=schematic:ford] ::
++ print-changes
|= {wen/@da lem/nuri}
^+ +>
+ :: skip full change output for initial filesystem
+ ::
+ ?: ?& =(%base syd)
+ |(=(1 let.dom) =(2 let.dom))
+ ==
+ =/ msg=tape
+ %+ weld
+ "clay: committed initial filesystem"
+ ?:(=(1 let.dom) " (hoon)" " (all)")
+ (emit (need hun) %pass / %d %flog %text msg)
+ ::
=+ pre=`path`~[(scot %p her) syd (scot %ud let.dom)]
?- -.lem
%| (print-to-dill '=' %leaf :(weld (trip p.lem) " " (spud pre)))
