Paste: (pointer-c-type)

Author: jedahu
Mode: factor
Date: Mon, 28 Jun 2010 00:18:35
Plain Text | 
 : (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 ;

New Annotation

Summary:
Author:
Mode:
Body: