factor: trim some using lists

[factor.git] / basis / unicode / case / case.factor

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 011913097d0585e9bfd54e237c9444a7c67c1aee..d18e23dadec3891b8443cf9637ee79b908a3f576 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2008, 2009 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators.short-circuit kernel locals namespaces sbufs
+USING: combinators.short-circuit kernel namespaces sbufs
 sequences splitting unicode.categories unicode.data ;
 QUALIFIED: ascii
 IN: unicode.case
@@ -47,7 +47,7 @@ SYMBOL: locale ! Just casing locale, or overall?
 : fix-sigma-end ( string -- string )
     [ "" ] [
         dup last CHAR: greek-small-letter-sigma =
-        [ 1 head* CHAR: greek-small-letter-final-sigma suffix ] when
+        [ but-last CHAR: greek-small-letter-final-sigma suffix ] when
     ] if-empty ; inline
 
 ! this duplicate unicode to prevent dependencies