specialized-arrays: bootstraps
parent
1950722e04
commit
036bc70a47
|
@ -4,7 +4,7 @@ USING: accessors alien alien.c-types alien.data alien.parser
|
||||||
byte-arrays classes combinators fry functors kernel lexer locals
|
byte-arrays classes combinators fry functors kernel lexer locals
|
||||||
make math math.vectors parser prettyprint.custom sequences
|
make math math.vectors parser prettyprint.custom sequences
|
||||||
sequences.private vocabs.generated vocabs.loader vocabs.parser
|
sequences.private vocabs.generated vocabs.loader vocabs.parser
|
||||||
words math.parser arrays ;
|
words math.parser arrays functors2 ;
|
||||||
IN: specialized-arrays
|
IN: specialized-arrays
|
||||||
|
|
||||||
MIXIN: specialized-array-mixin
|
MIXIN: specialized-array-mixin
|
||||||
|
@ -41,7 +41,7 @@ M: byte-array direct-like drop uchar <c-direct-array> ; inline
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
VARIABLES-FUNCTOR: specialized-array ( T -- ) {
|
VARIABLES-FUNCTOR: specialized-array ( T: existing-word -- ) {
|
||||||
{ "A" "${T}-array" }
|
{ "A" "${T}-array" }
|
||||||
{ "<A>" "<${A}>" }
|
{ "<A>" "<${A}>" }
|
||||||
{ "(A)" "(${A})" }
|
{ "(A)" "(${A})" }
|
||||||
|
|
Loading…
Reference in New Issue