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

Fix a couple of bootstrap errors

db4
Slava Pestov 2009-01-25 00:11:06 -06:00
parent ef223f26d5
commit 2aa84a9b4f
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/help/markup/markup.factor
View File

@ -3,7 +3,8 @@
USING: accessors arrays definitions generic io kernel assocs USING: accessors arrays definitions generic io kernel assocs
hashtables namespaces make parser prettyprint sequences strings hashtables namespaces make parser prettyprint sequences strings
io.styles vectors words math sorting splitting classes slots fry io.styles vectors words math sorting splitting classes slots fry
sets vocabs help.stylesheet help.topics vocabs.loader quotations ; sets vocabs help.stylesheet help.topics vocabs.loader quotations
combinators ;
IN: help.markup IN: help.markup
PREDICATE: simple-element < array PREDICATE: simple-element < array

4
basis/ui/cocoa/tools/tools.factor
View File

@ -75,12 +75,12 @@ CLASS: {
} { } {
"evalInListener:userData:error:" "evalInListener:userData:error:"
"void" "void"
{ "id" "SEL" "id" "id" "void*" } { "id" "SEL" "id" "id" "id" }
[ nip [ eval-listener f ] do-service 2drop ] [ nip [ eval-listener f ] do-service 2drop ]
} { } {
"evalToString:userData:error:" "evalToString:userData:error:"
"void" "void"
{ "id" "SEL" "id" "id" "void*" } { "id" "SEL" "id" "id" "id" }
[ nip [ eval>string ] do-service 2drop ] [ nip [ eval>string ] do-service 2drop ]
} ; } ;

2
basis/ui/render/render.factor
View File

@ -141,7 +141,7 @@ TUPLE: gradient < caching-pen colors last-vertices last-colors ;
concat concat >float-array ; concat concat >float-array ;
: gradient-colors ( colors -- seq ) : gradient-colors ( colors -- seq )
[ color>raw 4array dup 2array ] map concat concat [ >rgba-components 4array dup 2array ] map concat concat
>float-array ; >float-array ;
M: gradient recompute-pen ( gadget gradient -- ) M: gradient recompute-pen ( gadget gradient -- )