/* Appends a new term to the current list of #CRTerm. */
CRTerm* cr_term_append_term(CRTerm *a_this, CRTerm *a_new_term)
/* Appends a new term to the current list of #CRTerm. */
CRTerm* cr_term_append_term(CRTerm *a_this, CRTerm *a_new_term)
{
        CRTerm *cur = NULL;
        g_return_val_if_fail (a_new_term, NULL);
        if (a_this == NULL)
                return a_new_term;
        for (cur = a_this; cur->next; cur = cur->next) ;
        cur->next = a_new_term;
        a_new_term->prev = cur;
        return a_this;
}