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

Modifying the struct prettyprinter to display bits

db4
Daniel Ehrenberg 2009-10-07 21:42:15 -05:00
parent 1a2c137e41
commit 4e1aa8f638
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,6 +23,11 @@ IN: classes.struct.prettyprint
[ type>> pprint-c-type ] [ 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* ]
[
dup struct-bit-slot-spec?
[ \ bits: pprint-word bits>> pprint* ]
[ drop ] if
]
} cleave block> } cleave block>
\ } pprint-word block> ; \ } pprint-word block> ;