@@ 634,12 634,12 @@ define : next-subscriptions wotstate own
let*
: id : first updated
rank : get-rank id
- cond
- {rank = 1} : set! updated-rank1-ids : cons id updated-rank1-ids
- {rank = 2} : set! updated-rank2-ids : cons id updated-rank2-ids
- {rank > 2} : set! updated-rank3+-ids : cons id updated-rank3+-ids
- else #t
- loop : cdr updated
+ cond
+ {rank = 1} : set! updated-rank1-ids : cons id updated-rank1-ids
+ {rank = 2} : set! updated-rank2-ids : cons id updated-rank2-ids
+ {rank > 2} : set! updated-rank3+-ids : cons id updated-rank3+-ids
+ else #t
+ loop : cdr updated
;; clear updated IDs
set-subscriptions-for-ownid! subscriptions-updated ownid '()
;; reorder rank1 subscriptions