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

cond/case

db4
Doug Coleman 2008-04-11 12:54:51 -05:00
parent 1e01d73e61
commit 91263905d3
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/unicode/breaks/breaks.factor
View File

@ -43,7 +43,7 @@ CATEGORY: (extend) Me Mn ;
{ [ dup jamo? ] [ jamo-class ] } { [ dup jamo? ] [ jamo-class ] }
{ [ dup grapheme-control? ] [ control-class ] } { [ dup grapheme-control? ] [ control-class ] }
{ [ extend? ] [ Extend ] } { [ extend? ] [ Extend ] }
{ [ t ] [ Any ] } [ Any ]
} cond ; } cond ;
: init-grapheme-table ( -- table ) : init-grapheme-table ( -- table )

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

@ -51,7 +51,7 @@ SYMBOL: locale ! Just casing locale, or overall?
drop dot-over = drop dot-over =
dup CHAR: i HEX: 131 ? , dup CHAR: i HEX: 131 ? ,
] } ] }
{ [ t ] [ , drop f ] } [ , drop f ]
} cond ; } cond ;
: turk>lower ( string -- lower-i ) : turk>lower ( string -- lower-i )