factor: trim using lists

[factor.git] / basis / colors / hsl / hsl.factor

diff --git a/basis/colors/hsl/hsl.factor b/basis/colors/hsl/hsl.factor
index f61bc6e6a9149996d2c34ad6db1e85d9cb69787d..d39c1d66aba3557f5a463d89cede99b9a5da89b5 100644 (file)
--- a/basis/colors/hsl/hsl.factor
+++ b/basis/colors/hsl/hsl.factor
@@ -1,12 +1,11 @@
 ! Copyright (C) 2012 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: accessors colors combinators kernel locals math
-math.order ;
+USING: accessors colors combinators kernel math math.order ;
 
 IN: colors.hsl
 
-TUPLE: hsla < color
+TUPLE: hsla
 { hue read-only }
 { saturation read-only }
 { lightness read-only }
@@ -14,6 +13,8 @@ TUPLE: hsla < color
 
 C: <hsla> hsla
 
+INSTANCE: hsla color
+
 <PRIVATE
 
 : value ( p q t -- value )