/* Returns the new list statement list, or NULL in cas of failure.  */
CRStatement* cr_statement_append(CRStatement *a_this, CRStatement *a_new)
/* Returns the new list statement list, or NULL in cas of failure.  */
CRStatement* cr_statement_append(CRStatement *a_this, CRStatement *a_new)
{
        CRStatement *cur = NULL;
        g_return_val_if_fail (a_new, NULL);
        if (!a_this) {
                return a_new;
        }
        for (cur = a_this; cur && cur->next; cur = cur->next) ;
        cur->next = a_new;
        a_new->prev = cur;
        return a_this;
}