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

View File

@ -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

View File

@ -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 ]
} ;

View File

@ -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 -- )