atom.c
void atom_bind(atom_t* obj, atom_t* container) {
    ++obj->bindings;
    if (atom_is_container(obj)) {
        if (!obj->val.list->bindlist)
            obj->val.list->bindlist = list();
        list_add_h(obj->val.list->bindlist, container);
    }
}
/*
--------------------------------------
atom_bind

    Add a binding to an object.
--------------------------------------
*/
atom_bind
Add a binding to an object.
atom_bind Add a binding to an object .
void atom_bind(atom_t* obj, atom_t* container) {
    ++obj->bindings;
    if (atom_is_container(obj)) {
        if (!obj->val.list->bindlist)
            obj->val.list->bindlist = list();
        list_add_h(obj->val.list->bindlist, container);
    }
}
void atom_bind ( atom_t * obj , atom_t * container ) { ++ obj -> bindings ; if ( atom_is_container ( obj ) ) { if ( ! obj -> val . list -> bindlist ) obj -> val . list -> bindlist = list ( ) ; list_add_h ( obj -> val . list -> bindlist , container ) ; } }
atom_bind
Add a binding to an object.
atom_bind Add a binding to an object .