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

updates ++boil:ap to crash if a book has pages with the same tag

Browse Source
This commit is contained in:
Joseph Bryan 2017-03-03 14:56:06 -05:00
parent 49429adb45
commit 97fd7b1ac5
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
sys/hoon.hoon
View File

@ -6772,12 +6772,21 @@
[%axil %void] [%axil %void]
?~ t.p.gen ?~ t.p.gen
boil(gen i.p.gen) boil(gen i.p.gen)
=+ :* def=bile(gen i.p.gen) =/ def bile(gen i.p.gen)
^= end ^- (list line) =| tag/(set term)
~_ leaf+"book-foul" =? tag ?=($& -.def) (~(put in tag) `@tas`q.p.p.def)
%+ turn `(list hoon)`t.p.gen =/ end
|=(a/hoon =+(bile(gen a) ?>(?=($& -<) ->))) =| lit/(list line)
== |- ^+ lit
=/ tar bile(gen i.t.p.gen)
?. ?=($& -.tar)
~_(leaf+"book-foul" !!)
=/ hed `@tas`q.p.p.tar
?: (~(has in tag) hed)
~_(leaf+"book-dup-page: {<hed>}" !!)
=. lit [+.tar lit]
?~ t.t.p.gen lit
$(tag (~(put in tag) hed), t.p.gen t.t.p.gen)
?- -.def ?- -.def
$& [%kelp p.def end] $& [%kelp p.def end]
$| ?~(end p.def [%fern p.def [%kelp end] ~]) $| ?~(end p.def [%fern p.def [%kelp end] ~])