urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 11:08:45 +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 committed by C. Guy Yarvin
parent 942d595fa9
commit cc605d0e5e
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

@ -6999,12 +6999,21 @@
[%axil %void]
?~ t.p.gen
boil(gen i.p.gen)
=+ :* def=bile(gen i.p.gen)
^= end ^- (list line)
~_ leaf+"book-foul"
%+ turn `(list hoon)`t.p.gen
|=(a/hoon =+(bile(gen a) ?>(?=($& -<) ->)))
==
=/ def bile(gen i.p.gen)
=| tag/(set term)
=? tag ?=($& -.def) (~(put in tag) `@tas`q.p.p.def)
=/ end
=| 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
$& [%kelp p.def end]
$| ?~(end p.def [%fern p.def [%kelp end] ~])