classes.struct: Fix prettyprint for PACKED-STRUCT. Fixes #162.

db4
John Benediktsson 2011-09-24 17:55:13 -07:00
parent b2176f98a7
commit e49c3d17b5
1 changed files with 0 additions and 1 deletions

View File

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