bluesky-get-feed-all ( linked-assoc -- feed )

Vocabulary

bluesky

Inputs

linked-assoc

an object

Outputs

feed

an object

Definition

USING: assocs assocs.extras kernel prettyprint sequences ;

IN: bluesky

: bluesky-get-feed-all ( linked-assoc -- feed )
    "" "cursor" pick ?set-once-at 2drop
    [ dup "cursor" of ] [
        [
            bluesky-get-feed
            [ "feed" of ] [ "cursor" of dup . ] bi
        ] keep [ "cursor" ] dip [ set-at ] keep swap
    ] produce concat nip ;