fix incremental fetching for stations already seen

This commit is contained in:
Anton Dyudin 2016-07-15 11:24:41 -07:00
parent 44340968b1
commit f55ceadd90

View File

@ -1655,8 +1655,9 @@
%+ turn tal
|= tay/partner
^- (list card)
:: =+ num=(fall (~(get by sequence) tay) 0) :: XX unused
=+ old=(sub now.hid ~d1)
=+ num=(~(get by sequence) tay)
=+ old=(sub now.hid ~d1) :: XX full backlog
=+ ini=?^(num (scot %ud u.num) (scot %da old))
=/ typ
=+ (ly ~[%a-group %f-grams %x-cabal])
(rap 3 (turn - encode:peer-type))
@ -1667,7 +1668,7 @@
:* %peer
/friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
[p.p.tay %talk]
/[typ]/[q.p.tay]/(scot %da old)
/[typ]/[q.p.tay]/[ini]
==
==
::