lazy-io

Vocabulary

lists.lazy

Definition

IN: lists.lazy

TUPLE: lazy-io stream car cdr quot ;

Methods

USING: accessors combinators kernel lists lists.lazy ;

M: lazy-io car
    dup car>>
    [ nip ] [
        dup [ stream>> ] [ quot>> ] bi
        ( stream -- value ) call-effect
        [ >>car ] [ drop nil ] if*
    ] if* ;


USING: accessors kernel lists lists.lazy ;

M: lazy-io cdr
    dup cdr>> dup
    [ nip ] [
        drop dup [ stream>> ] [ quot>> ] [ car ] tri
        [ [ f f ] dip <lazy-io> [ >>cdr drop ] keep ]
        [ 3drop nil ] if
    ] if ;


USING: lists lists.lazy ;

M: lazy-io nil? car nil? ;