diff --git a/pkg/base-dev/sur/hood.hoon b/pkg/base-dev/sur/hood.hoon index 5c736f271..da598529c 100644 --- a/pkg/base-dev/sur/hood.hoon +++ b/pkg/base-dev/sur/hood.hoon @@ -51,10 +51,11 @@ =/ deks ?~ desks %+ sort - (sort ~(tap in -.prep) |=([[a=@ *] b=@ *] !(aor a b))) + (sort ~(tap by -.prep) |=([[a=@ *] b=@ *] !(aor a b))) |=([[a=@ *] [b=@ *]] ?|(=(a %kids) =(b %base))) - %+ skip ~(tap in -.prep) + %+ skip ~(tap by -.prep) |=([syd=@tas *] =(~ (find ~[syd] desks))) + =. deks (skim deks |=([=desk *] ((sane %tas) desk))) ?: =(filt %blocking) =/ base-wic %+ sort ~(tap by wic:(~(got by -.prep) %base)) @@ -118,6 +119,8 @@ ^- tank =/ ego (scot %p our) =/ wen (scot %da now) + ?. ((sane %tas) syd) + leaf+"insane desk: {}" =+ .^(=cass %cw /[ego]/[syd]/[wen]) ?: =(ud.cass 0) leaf+"desk does not yet exist: {}"