lazy-until

Vocabulary

lists.lazy

Definition

IN: lists.lazy

TUPLE: lazy-until cons quot ;

Methods

USING: accessors lists lists.lazy ;

M: lazy-until car cons>> car ;


USING: accessors combinators kernel lists lists.lazy ;

M: lazy-until cdr
    [ [ cons>> cdr ] [ quot>> ] bi ]
    [ [ cons>> car ] [ quot>> ] bi ( elt -- ? ) call-effect ] bi
    [ 2drop nil ] [ luntil ] if ;


USING: kernel lists lists.lazy ;

M: lazy-until nil? drop f ;