: (pointer-c-type) ( void* type -- void*' ) - [ clone ] dip c-type-boxer-quot '[ _ [ f ] if* ] >>boxer-quot ; + [ clone ] dip + [ c-type-boxer-quot '[ _ [ f ] if* ] >>boxer-quot ] + [ c-type-unboxer-quot '[ dup c-ptr? _ unless ] >>unboxer-quot ] bi ;