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

Fixed another problematic accumulator call.

Browse Source
This commit is contained in:
Fang 2017-11-09 19:08:05 +01:00
parent 3392f80ce3
commit 12e954c352
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
app/hall.hoon
View File

@ -404,16 +404,29 @@
:: to remove them from {public} too.
=? ..ta-action &(=(nom %inbox) !sub)
^+ ..ta-action
%- ~(rep in srs)
|= {src/source _..ta-action}
^+ ..ta-action
:: delete from public if it's the last source.
=; last/? ?:(last (action-public | cir.src) ..ta-action)
=+ srs=~(tap in srs)
|- ^+ ..ta-action
?~ srs ..ta-action
=; last/?
=? ..ta-action last
(action-public | cir.i.srs)
$(srs t.srs)
%- ~(rep in src.shape:(~(got by stories) nom))
|= {s/source l/?}
?. l |
?. =(cir.s cir.src) &
=(ran.s ran.src)
?. =(cir.s cir.i.srs) &
=(ran.s ran.i.srs)
:: below eats state
::%- ~(rep in srs)
::|= {src/source _..ta-action}
::^+ ..ta-action
:::: delete from public if it's the last source.
::=; last/? ?:(last (action-public | cir.src) ..ta-action)
::%- ~(rep in src.shape:(~(got by stories) nom))
::|= {s/source l/?}
::?. l |
::?. =(cir.s cir.src) &
::=(ran.s ran.src)
=+ soy=(~(get by stories) nom)
?~ soy
(ta-evil (crip "no story {(trip nom)}"))