return mbp->msg;
}
static scm_sizet
static size_t
mu_scm_body_free (SCM body_smob)
{
struct mu_body *mbp = (struct mu_body *) SCM_CDR (body_smob);
return 0;
_mu_debug_port_free (SCM port)
_mu_debug_port_close (port);
return SCM_BOOL_F;
mu_scm_mailbox_free (SCM mailbox_smob)
struct mu_mailbox *mum = (struct mu_mailbox *) SCM_CDR (mailbox_smob);
return mum->mbox;
mu_scm_message_free (SCM message_smob)
struct mu_message *mum = (struct mu_message *) SCM_CDR (message_smob);
return mum->owner;
mu_scm_mime_free (SCM mime_smob)
struct mu_mime *mum = (struct mu_mime *) SCM_CDR (mime_smob);
mu_port_free (SCM port)
struct mu_port *mp = MU_PORT (port);