;join now loads only a day's worth of backlog by default.

This commit is contained in:
Fang 2017-12-14 01:30:06 +01:00
parent e1a0bdc3c9
commit 835dae7317

View File

@ -1047,6 +1047,11 @@
=+ pas=~(key by pos)
=. ..sh-work
sh-prod(active.she pas)
:: default to a day of backlog
=. pos
%- ~(run by pos)
|= r/range
?~(r `[da+(sub now.bol ~d1) ~] r)
(sh-act %source inbox & pos)
::
++ leave ::< %leave