classes.struct: Fix prettyprint for PACKED-STRUCT. Fixes #162.
parent
b2176f98a7
commit
e49c3d17b5
|
@ -12,7 +12,6 @@ IN: classes.struct.prettyprint
|
|||
: struct-definer-word ( class -- word )
|
||||
struct-slots
|
||||
{
|
||||
{ [ dup length 1 <= ] [ drop \ STRUCT: ] }
|
||||
{ [ dup [ offset>> 0 = ] all? ] [ drop \ UNION-STRUCT: ] }
|
||||
{ [ dup [ packed?>> ] all? ] [ drop \ PACKED-STRUCT: ] }
|
||||
[ drop \ STRUCT: ]
|
||||
|
|
Loading…
Reference in New Issue