mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
updates ++boil:ap to crash if a book has pages with the same tag
This commit is contained in:
parent
49429adb45
commit
97fd7b1ac5
@ -6772,12 +6772,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] ~])
|
||||
|
Loading…
Reference in New Issue
Block a user