arvo: clear caches in response to (high) memory pressure

This commit is contained in:
Joe Bryan 2019-10-01 14:07:08 -07:00
parent ef959e0c52
commit 22ddd4aeb5

View File

@ -782,9 +782,14 @@
:: notifications, spammed to every vane
::
?: ?=(%trim -.q.ovo)
=> .(ovo ;;((pair wire [%trim @ud]) ovo))
=> .(ovo ;;((pair wire [%trim p=@ud]) ovo))
=^ zef vanes
(~(spam (is our vil eny bud vanes) now) lac ovo)
:: clear compiler caches if high-priority
::
=? vanes =(0 p.q.ovo)
~> %slog.[0 leaf+"arvo: trim: clearing caches"]
(turn vanes |=([a=@tas =vane] [a vase.vane *worm]))
[zef +>.$]
::
:: Normal events are routed to a single vane