ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

arvo: minor cleanup

Browse Source
This commit is contained in:
Ted Blackman 2020-05-07 05:10:43 -04:00
parent 7493fd4fd9
commit 9dea282d5d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkg/arvo/sys/arvo.hoon
View File

@ -3,8 +3,7 @@
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
!:
~> %slog.[0 leaf+"arvo: assembly"]
=- ~> %slog.[0 leaf+"arvo: assembled"]
-
~< %slog.[0 leaf+"arvo: assembled"]
=< ::
:: Arvo formal interface
::
@ -1000,8 +999,7 @@
?. &(?=(^ who) ?=(^ eny) ?=(^ bod))
[~ +>.$]
~> %slog.[0 leaf+"arvo: metamorphosis"]
=- ~> %slog.[0 leaf+"arvo: metamorphosed"]
-
~< %slog.[0 leaf+"arvo: metamorphosed"]
=/ nyf
(turn vanes.^poke |=([label=@tas =vane] [label vase.vane]))
(load u.who now u.eny *pram u.bod nyf)
@ -1117,7 +1115,9 @@
:: Print warning and no-op.
::
%warn
=+ (mule |.(((slog ;;(tank q.q.ovo) ~) ~)))
?: =(%& -:(mule |.(((slog ;;(tank q.q.ovo) ~) ~))))
[~ arvo]
~> %slog.[0 leaf+"arvo: %warn print-fail"]
[~ arvo]
:: Process these events just as if they had come from a vane
::