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

ascii: remove ch-lower? and ch-upper? words, since they're the same as letter? and LETTER?

db4
Slava Pestov 2010-10-08 18:55:37 -07:00
parent 38ceef3ab8
commit 40e5ed8b87
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ascii/ascii.factor
View File

@ -18,9 +18,6 @@ IN: ascii
: >lower ( str -- lower ) [ ch>lower ] map ; : >lower ( str -- lower ) [ ch>lower ] map ;
: ch>upper ( ch -- upper ) dup letter? [ HEX: 20 - ] when ; inline : ch>upper ( ch -- upper ) dup letter? [ HEX: 20 - ] when ; inline
: >upper ( str -- upper ) [ ch>upper ] map ; : >upper ( str -- upper ) [ ch>upper ] map ;
: ch-lower? ( ch -- ? ) dup ch>lower = ;
: ch-upper? ( ch -- ? ) dup ch>upper = ;
HINTS: >lower string ; HINTS: >lower string ;
HINTS: >upper string ; HINTS: >upper string ;