: *value ( c-ptr c-type -- value ) [ 0 ] dip alien-value ; inline :: ( value c-type -- c-ptr ) c-type heap-size :> c-ptr value c-ptr 0 c-type set-alien-value c-ptr ; inline