static void message_set(ScmMessageCondition *obj, ScmObj val) { ScmObj msglist = obj->message; if (SCM_PAIRP(msglist)) SCM_SET_CAR(msglist, val); else SCM_MESSAGE_CONDITION(obj)->message = SCM_LIST2(val, val); }
static ScmObj message_get(ScmMessageCondition *obj) { return SCM_MESSAGE_CONDITION(obj)->message; }