| 320 | |
| 321 | |
| 322 | value createAbstract() |
| 323 | { |
| 324 | if (!myKind) |
| 325 | myKind = alloc_kind(); |
| 326 | |
| 327 | value abs = create_abstract(myKind, sizeof(int), destroyMyKind); |
| 328 | int *data = (int *)val_get_handle(abs,myKind); |
| 329 | *data = 99; |
| 330 | return abs; |
| 331 | } |
| 332 | DEFINE_PRIM(createAbstract, 0); |
| 333 | |
| 334 |
nothing calls this directly
no test coverage detected