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

factor: fix bootstrap and test and doc

clean-linux-x86-64
Doug Coleman 2019-07-30 18:00:40 -05:00
parent 6ac5bf66e8
commit 8eb7621b54
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/sorting/human/human.factor
View File

@ -32,7 +32,7 @@ TUPLE: alphanum obj ;
: <alphanum-insensitive> ( obj -- alphanum ) : <alphanum-insensitive> ( obj -- alphanum )
alphanum new alphanum new
swap dup string? [ w/collation-key ] when >>obj ; inline swap dup string? [ collation-key/nfd drop ] when >>obj ; inline
M: alphanum <=> M: alphanum <=>
[ obj>> ] bi@ [ obj>> ] bi@

2
basis/ui/backend/cocoa/views/views.factor
View File

@ -15,6 +15,8 @@ ui.backend.cocoa.input-methods.editors io.encodings.utf16n
io.encodings.string classes.struct ; io.encodings.string classes.struct ;
IN: ui.backend.cocoa.views IN: ui.backend.cocoa.views
SLOT: window
: send-mouse-moved ( view event -- ) : send-mouse-moved ( view event -- )
[ mouse-location ] [ drop window ] 2bi [ mouse-location ] [ drop window ] 2bi
[ move-hand fire-motion yield ] [ drop ] if* ; [ move-hand fire-motion yield ] [ drop ] if* ;

2
basis/unicode/breaks/breaks-docs.factor
View File

@ -24,7 +24,7 @@ $nl "Operations for graphemes:"
} ; } ;
HELP: first-grapheme HELP: first-grapheme
{ $values { "str" string } { "i" "an index" } } { $values { "entire-str" string } { "start" string } { "i" "an index" } }
{ $description "Finds the length of the first grapheme of the string. This can be used repeatedly to efficiently traverse the graphemes of the string, using slices." } ; { $description "Finds the length of the first grapheme of the string. This can be used repeatedly to efficiently traverse the graphemes of the string, using slices." } ;
HELP: last-grapheme HELP: last-grapheme