lists: cleanup usings.
parent
edff21ada3
commit
e5925cf5ad
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2004, 2008 Chris Double, Matthew Willis, James Cash.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays combinators io kernel lists math
|
||||
promises quotations sequences vectors ;
|
||||
promises quotations sequences ;
|
||||
IN: lists.lazy
|
||||
|
||||
M: promise car ( promise -- car )
|
||||
|
@ -18,8 +18,8 @@ TUPLE: lazy-cons-state car cdr ;
|
|||
|
||||
: lazy-cons ( car cdr -- promise )
|
||||
[ T{ promise f f t f } clone ] 2dip
|
||||
[ <promise> ] bi@ \ lazy-cons-state boa
|
||||
>>value ;
|
||||
[ <promise> ] bi@ \ lazy-cons-state boa
|
||||
>>value ;
|
||||
|
||||
M: lazy-cons-state car ( lazy-cons -- car )
|
||||
car>> force ;
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2008 James Cash, Daniel Ehrenberg, Chris Double.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel sequences accessors math arrays vectors classes words
|
||||
combinators.short-circuit combinators locals summary ;
|
||||
USING: accessors combinators.short-circuit kernel locals math
|
||||
sequences ;
|
||||
IN: lists
|
||||
|
||||
! List Protocol
|
||||
|
|
Loading…
Reference in New Issue