Merge pull request #487 from Fang-/revert-prep

Revert hall's ++prep back to normal.
This commit is contained in:
Ted Blackman 2017-12-11 12:35:45 -08:00 committed by GitHub
commit 8fe58e3261
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -125,19 +125,6 @@
?~ old
%- pre-bake
ta-done:ta-init:ta
=. stories.u.old
%- ~(urn by stories.u.old)
|= {nom/naem soy/story}
=+ %+ roll grams.soy
|= {t/telegram c/@ud k/(map serial @ud) s/(map circle (list @ud))}
:+ +(c) (~(put by k) uid.t c)
=/ src/circle
?: (~(has by aud.t) [our.bol nom]) [our.bol nom]
?~ aud.t ~&(%strange-aud [our.bol %inbox])
n.aud.t
%+ ~(put by s) src
[c (fall (~(get by s) src) ~)]
soy(count c, known k, sourced s)
[~ ..prep(+<+ u.old)]
::
:> # %engines