Fix a couple of bootstrap errors
parent
ef223f26d5
commit
2aa84a9b4f
|
@ -3,7 +3,8 @@
|
|||
USING: accessors arrays definitions generic io kernel assocs
|
||||
hashtables namespaces make parser prettyprint sequences strings
|
||||
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
|
||||
|
||||
PREDICATE: simple-element < array
|
||||
|
|
|
@ -75,12 +75,12 @@ CLASS: {
|
|||
} {
|
||||
"evalInListener:userData:error:"
|
||||
"void"
|
||||
{ "id" "SEL" "id" "id" "void*" }
|
||||
{ "id" "SEL" "id" "id" "id" }
|
||||
[ nip [ eval-listener f ] do-service 2drop ]
|
||||
} {
|
||||
"evalToString:userData:error:"
|
||||
"void"
|
||||
{ "id" "SEL" "id" "id" "void*" }
|
||||
{ "id" "SEL" "id" "id" "id" }
|
||||
[ nip [ eval>string ] do-service 2drop ]
|
||||
} ;
|
||||
|
||||
|
|
|
@ -141,7 +141,7 @@ TUPLE: gradient < caching-pen colors last-vertices last-colors ;
|
|||
concat concat >float-array ;
|
||||
|
||||
: gradient-colors ( colors -- seq )
|
||||
[ color>raw 4array dup 2array ] map concat concat
|
||||
[ >rgba-components 4array dup 2array ] map concat concat
|
||||
>float-array ;
|
||||
|
||||
M: gradient recompute-pen ( gadget gradient -- )
|
||||
|
|
Loading…
Reference in New Issue