steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/classes/struct/prettyprint/prettyprint.factor
View File

@ -12,7 +12,6 @@ IN: classes.struct.prettyprint
: struct-definer-word ( class -- word ) : struct-definer-word ( class -- word )
struct-slots struct-slots
{ {
{ [ dup length 1 <= ] [ drop \ STRUCT: ] }
{ [ dup [ offset>> 0 = ] all? ] [ drop \ UNION-STRUCT: ] } { [ dup [ offset>> 0 = ] all? ] [ drop \ UNION-STRUCT: ] }
{ [ dup [ packed?>> ] all? ] [ drop \ PACKED-STRUCT: ] } { [ dup [ packed?>> ] all? ] [ drop \ PACKED-STRUCT: ] }
[ drop \ STRUCT: ] [ drop \ STRUCT: ]