forked from dan/liminix
1
0
Fork 0

replace var/each with accumulate

This commit is contained in:
Daniel Barlow 2023-09-12 20:55:08 +01:00
parent 8f97c5bf3c
commit 3bdb7754d3
1 changed files with 3 additions and 4 deletions

View File

@ -31,14 +31,13 @@
new-addresses))
(fn run []
(var addresses [])
(let [[state-directory wan-device] arg
dir (svc.open state-directory)]
(each [v (dir:events)]
(accumulate [addresses []
v (dir:events)]
;; we don't handle unbound or stopped, where we should
;; take the addresses away
(when (. bound-states (v:output "state"))
(set addresses
(update-addresses wan-device addresses (v:output "address")))))))
(update-addresses wan-device addresses (v:output "address"))))))
{ : update-addresses : changes : run }