steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

replace some 1 head* with but-last.

locals-and-roots
John Benediktsson 2016-04-16 15:54:23 -07:00
parent 54635f5c5d
commit 2a5e0e7f4f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unicode/case/case.factor
View File

@ -47,7 +47,7 @@ SYMBOL: locale ! Just casing locale, or overall?
: fix-sigma-end ( string -- string ) : fix-sigma-end ( string -- string )
[ "" ] [ [ "" ] [
dup last CHAR: greek-small-letter-sigma = 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 ] if-empty ; inline
! this duplicate unicode to prevent dependencies ! this duplicate unicode to prevent dependencies

2
extra/io/encodings/detect/detect.factor
View File

@ -25,7 +25,7 @@ default-8bit-encoding [ latin1 ] initialize
prolog-tag prolog-encoding name>encoding [ ascii ] unless* ; prolog-tag prolog-encoding name>encoding [ ascii ] unless* ;
: valid-utf8? ( bytes -- ? ) : valid-utf8? ( bytes -- ? )
utf8 decode 1 head-slice* replacement-char swap member? not ; utf8 decode but-last-slice replacement-char swap member? not ;
PRIVATE> PRIVATE>