diff --git a/contrib/parser-combinators/lazy-examples.factor b/contrib/parser-combinators/lazy-examples.factor index a1ae572d35..c94e3c4ccf 100644 --- a/contrib/parser-combinators/lazy-examples.factor +++ b/contrib/parser-combinators/lazy-examples.factor @@ -22,8 +22,9 @@ ! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +USING: lazy-lists math kernel sequences test ; IN: lazy-examples -USING: lazy math kernel sequences ; : naturals 0 lfrom ; : positves 1 lfrom ; @@ -32,7 +33,7 @@ USING: lazy math kernel sequences ; : powers-of-2 1 [ 2 * ] lfrom-by ; : ones 1 [ ] lfrom-by ; : squares naturals [ dup * ] lmap ; -: first-five-squares 5 squares ltake ; +: first-five-squares 5 squares ltake list>array ; : divisible-by? ( a b -- bool ) #! Return true if a is divisible by b @@ -44,4 +45,4 @@ USING: lazy math kernel sequences ; : primes 2 lfrom [ filter-multiples ] lapply ; -: first-ten-primes 10 primes ltake list>array ; +: first-ten-primes 10 primes ltake list>array ; \ No newline at end of file diff --git a/contrib/parser-combinators/lazy-tests.factor b/contrib/parser-combinators/lazy-tests.factor index 8fde0ef017..4975f1d82d 100644 --- a/contrib/parser-combinators/lazy-tests.factor +++ b/contrib/parser-combinators/lazy-tests.factor @@ -21,9 +21,8 @@ ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -USING: test kernel math io ; - -IN: lazy +USING: lazy-lists test kernel math io ; +IN: temporary [ t ] [ nil nil? ] unit-test [ 5 ] [ 5 lunit car ] unit-test diff --git a/contrib/parser-combinators/lazy.factor b/contrib/parser-combinators/lazy.factor index 8f79e95a4c..40e988a3b4 100644 --- a/contrib/parser-combinators/lazy.factor +++ b/contrib/parser-combinators/lazy.factor @@ -22,8 +22,9 @@ ! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -IN: lazy + USING: kernel sequences math vectors arrays namespaces ; +IN: lazy-lists TUPLE: promise quot forced? value ;