ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +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

5
arvo/ford.hoon
View File

@ -1025,10 +1025,15 @@
++ lamp :: normalize version ++ lamp :: normalize version
|= [cof=cafe bem=beam] |= [cof=cafe bem=beam]
^- (bolt beam) ^- (bolt beam)
%+ cope
?: ?=(%ud -.r.bem) (fine cof bem) ?: ?=(%ud -.r.bem) (fine cof bem)
=+ von=(save ~ %cw bem(s ~)) =+ von=(save ~ %cw bem(s ~))
?~ von [p=cof q=[%1 [%w bem ~] ~ ~]] ?~ von [p=cof q=[%1 [%w bem ~] ~ ~]]
(fine cof bem(r [%ud ((hard ,@) +.+:(need u.von))])) (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 ++ lave :: validate
|= [cof=cafe for=mark som=*] |= [cof=cafe for=mark som=*]