have SPECIALIZED-ARRAY: scan in a c-type rather than a string
parent
2e4d6389e2
commit
9479fb4099
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2008, 2009 Slava Pestov.
|
! Copyright (C) 2008, 2009 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors alien alien.c-types assocs byte-arrays classes
|
USING: accessors alien alien.c-types alien.parser assocs
|
||||||
compiler.units functors kernel lexer libc math
|
byte-arrays classes compiler.units functors kernel lexer libc math
|
||||||
math.vectors.specialization namespaces parser prettyprint.custom
|
math.vectors.specialization namespaces parser prettyprint.custom
|
||||||
sequences sequences.private strings summary vocabs vocabs.loader
|
sequences sequences.private strings summary vocabs vocabs.loader
|
||||||
vocabs.parser words fry combinators ;
|
vocabs.parser words fry combinators ;
|
||||||
|
@ -157,7 +157,7 @@ M: c-type-name c-direct-array-constructor
|
||||||
[ ] [ specialized-array-vocab-not-loaded ] ?if ; foldable
|
[ ] [ specialized-array-vocab-not-loaded ] ?if ; foldable
|
||||||
|
|
||||||
SYNTAX: SPECIALIZED-ARRAY:
|
SYNTAX: SPECIALIZED-ARRAY:
|
||||||
scan define-array-vocab use-vocab ;
|
scan-c-type define-array-vocab use-vocab ;
|
||||||
|
|
||||||
"prettyprint" vocab [
|
"prettyprint" vocab [
|
||||||
"specialized-arrays.prettyprint" require
|
"specialized-arrays.prettyprint" require
|
||||||
|
|
Loading…
Reference in New Issue