steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lists: cleanup usings.

db4
John Benediktsson 2014-09-28 17:21:04 -07:00
parent edff21ada3
commit e5925cf5ad
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/lists/lazy/lazy.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2004, 2008 Chris Double, Matthew Willis, James Cash. ! Copyright (C) 2004, 2008 Chris Double, Matthew Willis, James Cash.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays combinators io kernel lists math USING: accessors arrays combinators io kernel lists math
promises quotations sequences vectors ; promises quotations sequences ;
IN: lists.lazy IN: lists.lazy
M: promise car ( promise -- car ) M: promise car ( promise -- car )
@ -18,8 +18,8 @@ TUPLE: lazy-cons-state car cdr ;
: lazy-cons ( car cdr -- promise ) : lazy-cons ( car cdr -- promise )
[ T{ promise f f t f } clone ] 2dip [ T{ promise f f t f } clone ] 2dip
[ <promise> ] bi@ \ lazy-cons-state boa [ <promise> ] bi@ \ lazy-cons-state boa
>>value ; >>value ;
M: lazy-cons-state car ( lazy-cons -- car ) M: lazy-cons-state car ( lazy-cons -- car )
car>> force ; car>> force ;

4
basis/lists/lists.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 James Cash, Daniel Ehrenberg, Chris Double. ! Copyright (C) 2008 James Cash, Daniel Ehrenberg, Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences accessors math arrays vectors classes words USING: accessors combinators.short-circuit kernel locals math
combinators.short-circuit combinators locals summary ; sequences ;
IN: lists IN: lists
! List Protocol ! List Protocol