aqua: revert erroneously committed changes

These changes, part of optimization experiments, had snuck in somewhere.
This commit is contained in:
fang 2022-04-07 14:38:13 +02:00 committed by fang
parent 51d252be24
commit c4f3825f3a
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -788,31 +788,19 @@
1 1
lyfe lyfe
== ==
::NOTE if you use this separately, add spam-logs call here maybe? state
:: =/ =pass pub:ex:(get-keys:aqua-azimuth who lyfe)
:: (inject-udiffs [who [0x0 0] %keys [lyfe 1 pass] |] ~)
[~ state]
:: ::
++ breach ++ breach
|= who=@p |= who=@p
^- (quip card:agent:gall _state) ^- _state
~& [%aqua-breach who] =. state (cycle-keys who)
=^ * state (cycle-keys who)
=/ prev (~(got by lives.azi.piers) who) =/ prev (~(got by lives.azi.piers) who)
=/ rut +(rut.prev) =/ rut +(rut.prev)
=. lives.azi.piers (~(put by lives.azi.piers) who [lyfe.prev rut]) =. lives.azi.piers (~(put by lives.azi.piers) who [lyfe.prev rut])
=. logs.azi.piers =. logs.azi.piers
%+ weld logs.azi.piers %+ weld logs.azi.piers
[(broke-continuity:lo:aqua-azimuth who rut) ~] [(broke-continuity:lo:aqua-azimuth who rut) ~]
:: =. state (spam-logs 10) (spam-logs 10)
=/ lyfe lyfe:(~(got by lives.azi.piers) who)
=/ =pass pub:ex:(get-keys:aqua-azimuth who lyfe)
::TODO i think we're misinterpreting the boot flag, but it dont matter anyway
:: %- inject-udiffs
:: :~ [who [0x0 0] %keys [lyfe 1 pass] &]
:: [who [0x0 0] %rift rut &]
:: ==
[~ (spam-logs 10)]
:: ::
++ dawn ++ dawn
|= who=ship |= who=ship