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

Removing unused private words. See #132.

db4
John Benediktsson 2011-09-25 11:43:26 -07:00
parent bbeccadbbe
commit 1fa63f97f0
2 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/typed/typed.factor
View File

@ -72,9 +72,6 @@ PREDICATE: typed-word < word "typed-word" word-prop >boolean ;
! typed outputs ! typed outputs
: output-mismatch-quot ( word types -- quot )
[ output-mismatch-error ] 2curry ;
:: typed-outputs ( quot word types -- quot' ) :: typed-outputs ( quot word types -- quot' )
[ output-mismatch-error ] word types make-unboxer [ output-mismatch-error ] word types make-unboxer
quot prepose ; quot prepose ;

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

@ -25,8 +25,6 @@ SYMBOL: locale ! Just casing locale, or overall?
: lithuanian? ( -- ? ) locale get "lt" = ; : lithuanian? ( -- ? ) locale get "lt" = ;
: dot-over ( -- ch ) HEX: 307 ;
: lithuanian>upper ( string -- lower ) : lithuanian>upper ( string -- lower )
"i\u000307" "i" replace "i\u000307" "i" replace
"j\u000307" "j" replace ; "j\u000307" "j" replace ;