     "float" define-primitive-type
 
     <c-type>
+        float >>class
         [ alien-double ] >>getter
         [ [ >float ] 2dip set-alien-double ] >>setter
         8 >>size


[
    <c-type>
        [ alien-cell ] >>getter
        [ set-alien-cell ] >>setter
        bootstrap-cell >>size

: little-endian? ( -- ? ) 1 <int> *char 1 = ; foldable

TUPLE: c-type
class
boxer boxer-quot unboxer unboxer-quot
getter setter
reg-class size align stack-align? ;

: new-c-type ( class -- type )
    new
        int-regs >>reg-class
        object >>class ;

: <c-type> ( -- type )
    \ c-type new-c-type ;
