diff --git a/basis/lists/lazy/lazy.factor b/basis/lists/lazy/lazy.factor index 166d172c1a..a6d1dfd20c 100644 --- a/basis/lists/lazy/lazy.factor +++ b/basis/lists/lazy/lazy.factor @@ -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 - [ ] bi@ \ lazy-cons-state boa - >>value ; + [ ] bi@ \ lazy-cons-state boa + >>value ; M: lazy-cons-state car ( lazy-cons -- car ) car>> force ; diff --git a/basis/lists/lists.factor b/basis/lists/lists.factor index 0454a52096..1b106b0002 100644 --- a/basis/lists/lists.factor +++ b/basis/lists/lists.factor @@ -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