fix struct class see
parent
01d2ef415a
commit
21c09ab97a
|
@ -1,9 +1,9 @@
|
||||||
! (c)Joe Groff bsd license
|
! (c)Joe Groff bsd license
|
||||||
USING: accessors alien alien.c-types arrays assocs classes
|
USING: accessors alien alien.c-types alien.prettyprint arrays
|
||||||
classes.struct combinators combinators.short-circuit continuations
|
assocs classes classes.struct combinators combinators.short-circuit
|
||||||
fry kernel libc make math math.parser mirrors prettyprint.backend
|
continuations fry kernel libc make math math.parser mirrors
|
||||||
prettyprint.custom prettyprint.sections see.private sequences
|
prettyprint.backend prettyprint.custom prettyprint.sections
|
||||||
slots strings summary words ;
|
see.private sequences slots strings summary words ;
|
||||||
IN: classes.struct.prettyprint
|
IN: classes.struct.prettyprint
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
@ -20,7 +20,7 @@ IN: classes.struct.prettyprint
|
||||||
<flow \ { pprint-word
|
<flow \ { pprint-word
|
||||||
f <inset {
|
f <inset {
|
||||||
[ name>> text ]
|
[ name>> text ]
|
||||||
[ type>> dup string? [ text ] [ pprint* ] if ]
|
[ type>> pprint-c-type ]
|
||||||
[ read-only>> [ \ read-only pprint-word ] when ]
|
[ read-only>> [ \ read-only pprint-word ] when ]
|
||||||
[ initial>> [ \ initial: pprint-word pprint* ] when* ]
|
[ initial>> [ \ initial: pprint-word pprint* ] when* ]
|
||||||
} cleave block>
|
} cleave block>
|
||||||
|
|
Loading…
Reference in New Issue