fix struct class see

db4
Joe Groff 2009-09-16 09:56:07 -05:00
parent 01d2ef415a
commit 21c09ab97a
1 changed files with 6 additions and 6 deletions

View File

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