all-pages ( page -- data )

Vocabulary

reddit.private

Inputs

page

an object

Outputs

data

an object

Definition

USING: accessors kernel make sequences ;

IN: reddit.private

: all-pages ( page -- data )
    [
        [ [ data>> , ] [ dup after>> ] bi ] [ next-page ] while
        drop
    ] { } make concat ;