clay: remove debug artifacts
[+<- +<+>-] :: cache.state
::
++ ford
- ::!. :: TODO: reinstate
+ !.
=> |%
+$ build
$% [%file =path]
:: ford
::
++ read-a
- ::!. TODO reinstate
+ !.
|= [=aeon =path]
^- [(unit (unit (each cage lobe))) ford-cache]
?. =(aeon let.dom)
:_(fod.dom [~ ~ %& %vase !>(vase)])
::
++ read-b
- ::!. TODO reinstate
+ !.
|= [=aeon =path]
^- [(unit (unit (each cage lobe))) ford-cache]
?. =(aeon let.dom)
:_(fod.dom [~ ~ %& %dais !>(dais)])
::
++ read-c
- ::!. TODO reinstate
+ !.
|= [=aeon =path]
^- [(unit (unit (each cage lobe))) ford-cache]
?. =(aeon let.dom)
[~ fod]
:: virtualize to catch and produce deterministic failures
::
- ::!. TODO reinstate
+ !.
=- ?:(?=(%& -<) p.- ((slog p.-) [[~ ~] fod]))
%- mule |.
?- care.mun
