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

check for empty revision

Browse Source
This commit is contained in:
Anton Dyudin 2015-10-13 11:57:56 -07:00
parent c10bc16db4
commit 34a187fdb6
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
arvo/ford.hoon
View File

@ -1025,10 +1025,15 @@
++ lamp :: normalize version
|= [cof=cafe bem=beam]
^- (bolt beam)
?: ?=(%ud -.r.bem) (fine cof bem)
=+ von=(save ~ %cw bem(s ~))
?~ von [p=cof q=[%1 [%w bem ~] ~ ~]]
(fine cof bem(r [%ud ((hard ,@) +.+:(need u.von))]))
%+ cope
?: ?=(%ud -.r.bem) (fine cof bem)
=+ von=(save ~ %cw bem(s ~))
?~ von [p=cof q=[%1 [%w bem ~] ~ ~]]
(fine cof bem(r [%ud ((hard ,@) +.+:(need u.von))]))
|= [cof=cafe bem=[[ship desk %ud r=@u] s=spur]]
?: =(0 r.bem)
(flaw cof [leaf/"ford: no data: {(tope bem(s ~))}"]~)
(fine cof bem)
::
++ lave :: validate
|= [cof=cafe for=mark som=*]