urbit/gen/code.hoon
2016-03-14 19:41:25 -04:00

18 lines
265 B
Plaintext

::
:::: /hoon/code/gen
::
/- sole
=+ sole
:- %ask
|= $: {now/@da eny/@uvI bec/beak}
$~
$~
==
^- (sole-result)
%+ sole-yo
:- %leaf
%+ slag 1
%+ scow %p
.^(@p %a /(scot %p p.bec)/code/(scot %da now)/(scot %p p.bec))
sole-no