urbit/app/time.hoon
2018-03-18 21:18:20 -07:00

22 lines
299 B
Plaintext

::
:::: /hoon/time/app
::
/? 310
/+ old-zuse
=, old-zuse
|%
++ card {$wait wire @da}
--
|_ {bowl ~}
++ poke-noun
|= *
:_ +>.$ :_ ~
[ost %wait /(scot %da now) +(now)]
::
++ wake
|= {wir/wire ~}
?> ?=({@ ~} wir)
~& [%took `@dr`(sub now (slav %da i.wir))]
[~ +>.$]
--