colors.hwb: remove unused copied private word

diff --git a/basis/colors/hwb/hwb.factor b/basis/colors/hwb/hwb.factor
index 66efc803712c13703fbec5532cbdb97aa67be5b8..2418b1ca79d8045d6b8d581f7443bfcc665da582 100644 (file)
--- a/basis/colors/hwb/hwb.factor
+++ b/basis/colors/hwb/hwb.factor
@@ -16,20 +16,6 @@ C: <hwba> hwba
 
 INSTANCE: hwba color
 
-<PRIVATE
-
-: value ( p q t -- value )
-    dup 0 < [ 1.0 + ] when
-    dup 1 > [ 1.0 - ] when
-    {
-        { [ dup 1/6 < ] [ [ over - ] dip * 6 * + ] }
-        { [ dup 1/2 < ] [ drop nip ] }
-        { [ dup 2/3 < ] [ [ over - ] dip 2/3 swap - * 6 * + ] }
-        [ 2drop ]
-    } cond ;
-
-PRIVATE>
-
 M: hwba >rgba
     [let
         {