ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

wrap mtime around clay value

Browse Source
This commit is contained in:
Anton Dyudin 2017-12-14 16:16:54 -08:00
parent 31cfcfc82f
commit 9a962f74bc
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sys/vane/ford.hoon
View File

@ -1640,19 +1640,21 @@
$fspt
?. ?=([$fszy @] p.hon)
(flaw cof leaf+"ford: STUB /@ only implemented for /mark/" ~)
%+ cope $(cof cof, hon p.hon)
|= {cof/cafe mark vax/vase}
%+ cope (normalize-beak cof how(s [q.p.hon s.how]))
|= {cof/cafe bem/beam}
?> ?=(%ud -.r.bem)
%+ cope (load-arch cof bem)
|= {cof/cafe ark/arch}
?~ fil.ark (flaw cof leaf+"ford: no file {<(tope bem)>}" ~)
|- ^- (bolt cage) ::TODO do this in clay
?: =(0 p.r.bem) (fine cof %time !>(*@da))
=/ bom bem(p.r (dec p.r.bem))
%+ cope (load-arch cof bom)
|= {cof/cafe ork/arch}
?: =(fil.ork fil.ark) ^$(cof cof, bem bom)
%+ cope (load-time cof bem(s ~))
(flux |=(wen/time [%time !>(wen)]))
(flux |=(wen/time [%noun (slop !>(wen) vax)]))
::
$fsts
%+ cope $(hon q.hon)