Continuation of fix in 45afbf90

This commit is contained in:
Fang 2017-10-31 17:09:24 +01:00
parent f14d6b0849
commit 387c097758

View File

@ -622,9 +622,10 @@
(crip "strange author {(scow %p aut)}")
=. aut our.bol
?: =(aut hos.cir)
?. (~(has by stories) nom.cir)
(ta-note (crip "have no story {(scow %tas nom.cir)}"))
?: (~(has by stories) nom.cir)
(ta-record nom.cir hos.cir tot)
%- ta-note ::TODO avenue for abuse?
(crip "have no story {(scow %tas nom.cir)}")
(ta-transmit cir tot)
?. =(our.bol hos.cir) +>
(ta-record nom.cir aut tot)