15 lines
468 B
Factor
15 lines
468 B
Factor
|
! Copyright (C) 2009 Joe Groff.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors kernel prettyprint.backend
|
||
|
|
prettyprint.sections prettyprint.custom
|
||
|
|
specialized-arrays ;
|
||
|
|
IN: specialized-arrays.prettyprint
|
||
|
|
|
||
|
|
: pprint-direct-array ( direct-array -- )
|
||
|
|
dup direct-array-syntax
|
||
|
|
[ [ underlying>> ] [ length>> ] bi [ pprint* ] bi@ ] pprint-prefix ;
|
||
|
|
|
||
|
|
M: specialized-array pprint*
|
||
|
|
[ pprint-object ] [ pprint-direct-array ] pprint-c-object ;
|
||
|
|
|