Another cleanup

2008-05-22 17:43:51 -05:00 · 2008-05-22 17:43:51 -05:00 · eee90b69c4
parent e22bc69461
commit eee90b69c4
1 changed files with 1 additions and 3 deletions
--- a/extra/strings/lib/lib.factor
+++ b/extra/strings/lib/lib.factor
@ -3,9 +3,7 @@ strings unicode.case ;
 IN: strings.lib

 : >Upper ( str -- str )
-    dup empty? [
-        unclip ch>upper 1string prepend
-    ] unless ;
+    dup empty? [ unclip ch>upper prefix ] unless ;

 : >Upper-dashes ( str -- str )
    "-" split [ >Upper ] map "-" join ;