have SPECIALIZED-ARRAY: scan in a c-type rather than a string

db4
Joe Groff 2009-09-16 20:54:22 -05:00
parent 2e4d6389e2
commit 9479fb4099
1 changed files with 3 additions and 3 deletions

View File

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