//! shutdown and deallocate the world
void @PREFIX@Shutdown (@PREFIX@World_t *wrld)
{
    biffMsgNix (wrld->errors);
    FREE (wrld->globals);
#ifdef DIDEROT_TARGET_PARALLEL
    FREE (wrld->sched);
#endif

  // free strand objects
    for (int i = 0;  i < wrld->numStrands;  i++) {
	FREE (wrld->inState[i]);
	FREE (wrld->outState[i]);
    }

  // free state arrays
    FREE (wrld->inState);
    FREE (wrld->outState);
    FREE (wrld->status);

    FREE (wrld);

} // @PREFIX@Shutdown