urbit/app/time.hoon

::
::::  /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))]
  [~ +>.$]
--
:time app, measures time between poke and subsequent wakeup 2016-07-25 04:02:52 +03:00			`::`
			`:::: /hoon/time/app`
			`::`
			`/? 310`
app/time.hoon: fixed find.bowl 2017-10-20 02:08:22 +03:00			`/+ old-zuse`
			`=, old-zuse`
:time app, measures time between poke and subsequent wakeup 2016-07-25 04:02:52 +03:00			`\|%`
			`++ 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))]
			`[~ +>.$]`
			`--`