atom.c
void atom_unbind(atom_t* obj, atom_t* container) {
    --obj->bindings;
    if (atom_is_container(obj) && obj->val.list->bindlist) {
        int idx = list_idx(obj->val.list->bindlist, container);
        if (idx == -1) {
            printf("\x1b[95m" "Fatal error: unbind: container is not in bind list!\n" "\x1b[0m");
            exit(EXIT_FAILURE);
        }
        list_rem_h(obj->val.list->bindlist, idx);
    }
}
/*
--------------------------------------
atom_unbind

    Remove a binding from an object.
--------------------------------------
*/
atom_unbind
Remove a binding from an object.
atom_unbind Remove a binding from an object .
void atom_unbind(atom_t* obj, atom_t* container) {
    --obj->bindings;
    if (atom_is_container(obj) && obj->val.list->bindlist) {
        int idx = list_idx(obj->val.list->bindlist, container);
        if (idx == -1) {
            printf("\x1b[95m" "Fatal error: unbind: container is not in bind list!\n" "\x1b[0m");
            exit(EXIT_FAILURE);
        }
        list_rem_h(obj->val.list->bindlist, idx);
    }
}
void atom_unbind ( atom_t * obj , atom_t * container ) { -- obj -> bindings ; if ( atom_is_container ( obj ) && obj -> val . list -> bindlist ) { int idx = list_idx ( obj -> val . list -> bindlist , container ) ; if ( idx == -1 ) { printf ( " \x1b " " \n " " \x1b " ) ; exit ( EXIT_FAILURE ) ; } list_rem_h ( obj -> val . list -> bindlist , idx ) ; } }
atom_unbind
Remove a binding from an object.
atom_unbind Remove a binding from an object .