replace some 1 head* with but-last.

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 011913097d0585e9bfd54e237c9444a7c67c1aee..1efeeced692a17f4582f8c63d26e97d37992b952 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -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

diff --git a/extra/io/encodings/detect/detect.factor b/extra/io/encodings/detect/detect.factor
index 5c149f24cb363c456e0fb054dcb959f4d2e2df96..dbf0c8d0d9d9d9e8aac43d58f9ef37badc1bf3e0 100644 (file)
--- a/extra/io/encodings/detect/detect.factor
+++ b/extra/io/encodings/detect/detect.factor
@@ -25,7 +25,7 @@ default-8bit-encoding [ latin1 ] initialize
     prolog-tag prolog-encoding name>encoding [ ascii ] unless* ;
 
 : valid-utf8? ( bytes -- ? )
-    utf8 decode 1 head-slice* replacement-char swap member? not ;
+    utf8 decode but-last-slice replacement-char swap member? not ;
 
 PRIVATE>