Some refactoring and small fixes.

1 files changed, 3 insertions, 3 deletions

diff --git a/stdlib/test/test/lux/data/color.lux b/stdlib/test/test/lux/data/color.lux
index 977ffcf01..5ff92e6cd 100644
--- a/stdlib/test/test/lux/data/color.lux
+++ b/stdlib/test/test/lux/data/color.lux
@@ -12,7 +12,7 @@
 (def: color
   (r.Random @.Color)
   (|> ($_ r.and r.nat r.nat r.nat)
-      (:: r.Monad<Random> map @.color)))
+      (:: r.Monad<Random> map @.from-rgb)))
 
 (def: scale
   (-> Nat Frac)
@@ -31,8 +31,8 @@
 
 (def: error-margin Frac +1.8)
 
-(def: black @.Color (@.color [0 0 0]))
-(def: white @.Color (@.color [255 255 255]))
+(def: black (@.from-rgb [0 0 0]))
+(def: white (@.from-rgb [255 255 255]))
 
 (do-template [<field>]
   [(def: (<field> color)