From 97329ec45dd93dc1008d3778c6173fdfbfbd7ab8 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sat, 28 Jan 2017 23:53:11 -0400 Subject: - Expanded the lux/concurrency/frp module. - Some refactoring. --- stdlib/test/test/lux/concurrency/frp.lux | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'stdlib/test') diff --git a/stdlib/test/test/lux/concurrency/frp.lux b/stdlib/test/test/lux/concurrency/frp.lux index ec128b119..80f15ad3d 100644 --- a/stdlib/test/test/lux/concurrency/frp.lux +++ b/stdlib/test/test/lux/concurrency/frp.lux @@ -71,7 +71,7 @@ (i.= 15 output))) (do Monad - [elems (&;consume (&;no-dups number;Eq (List->Chan (list 0 0 0 1 2 2 3 3 3 3 4 4 4 5 5))))] + [elems (&;consume (&;distinct number;Eq (List->Chan (list 0 0 0 1 2 2 3 3 3 3 4 4 4 5 5))))] (assert "Can avoid immediate repetition in the channel." (case elems (^ (list 0 1 2 3 4 5)) @@ -81,7 +81,7 @@ false))) (do Monad - [elems (&;consume (&;as-chan (:: promise;Monad wrap 12345)))] + [elems (&;consume (&;once (:: promise;Monad wrap 12345)))] (assert "Can convert a promise into a single-value channel." (case elems (^ (list 12345)) -- cgit v1.2.3