move >Upper and >Upper-dashes to unicode.case

extra/strings/lib/lib.factor

@@ -4,11 +4,3 @@ IN: strings.lib
 ! : char>digit ( c -- i ) 48 - ;
 
 ! : string>digits ( s -- seq ) [ char>digit ] { } map-as ;
-
-! : >Upper ( str -- str )
-!     dup empty? [
-!         unclip ch>upper 1string swap append
-!     ] unless ;
-
-! : >Upper-dashes ( str -- str )
-!     "-" split [ >Upper ] map "-" join ;

extra/unicode/case/case.factor

@@ -1,6 +1,6 @@
 USING: kernel unicode.data sequences sequences.next namespaces
 assocs.lib unicode.normalize math unicode.categories combinators
-assocs ;
+assocs strings splitting ;
 IN: unicode.case
 
 : ch>lower ( ch -- lower ) simple-lower at-default ;
@@ -110,3 +110,12 @@ SYMBOL: locale ! Just casing locale, or overall?
     dup >title = ;
 : case-fold? ( string -- ? )
     dup >case-fold = ;
+
+
+: >Upper ( str -- str ) 
+    dup empty? [
+        unclip ch>upper 1string swap append
+    ] unless ;
+
+: >Upper-dashes ( str -- str )
+    "-" split [ >Upper ] map "-" join ;