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}`
			`--`
Stop using obsolete $~ syntax. 2018-03-19 07:18:20 +03:00			`\|_ {bowl ~}`
:time app, measures time between poke and subsequent wakeup 2016-07-25 04:02:52 +03:00			`++ poke-noun`
			`\|= *`
			`:_ +>.$ :_ ~`
			`[ost %wait /(scot %da now) +(now)]`
			`::`
			`++ wake`
Stop using obsolete $~ syntax. 2018-03-19 07:18:20 +03:00			`\|= {wir/wire ~}`
			`?> ?=({@ ~} wir)`
:time app, measures time between poke and subsequent wakeup 2016-07-25 04:02:52 +03:00			~& [%took `@dr`(sub now (slav %da i.wir))]
			`[~ +>.$]`
			`--`