atom.c
atom_t* atom_copy(atom_t* obj) {
    assert_arg(obj, "atom_copy");
    atom_t* objects = list();
    atom_t* copies = list();
    atom_t* copy = atom_cp(obj, objects, copies);
    list_free(objects);
    list_free(copies);
    return copy;
}
/*
--------------------------------------
atom_copy

    Return a deep copy of an object.
--------------------------------------
*/
atom_copy
Return a deep copy of an object.
atom_copy Return a deep copy of an object .
atom_t* atom_copy(atom_t* obj) {
    assert_arg(obj, "atom_copy");
    atom_t* objects = list();
    atom_t* copies = list();
    atom_t* copy = atom_cp(obj, objects, copies);
    list_free(objects);
    list_free(copies);
    return copy;
}
atom_t * atom_copy ( atom_t * obj ) { assert_arg ( obj , " " ) ; atom_t * objects = list ( ) ; atom_t * copies = list ( ) ; atom_t * copy = atom_cp ( obj , objects , copies ) ; list_free ( objects ) ; list_free ( copies ) ; return copy ; }
atom_copy
Return a deep copy of an object.
atom_copy Return a deep copy of an object .