atom.c
char* atom_type(atom_t* obj) {
    assert_arg(obj, "atom_type");
    switch(obj->type) {
    case  0: return "NIL";
    case  1: return "NUMBER";
    case  2: return "SYMBOL";
    case  3: return "LIST";
    case  4: return "DICTIONARY";
    case  5: return "FUNCTION";
    case  6: return "STD_OP";
    default: return "UNRECOGNIZED";
    }
}
/*
--------------------------------------
atom_type

    Return string with the type of an object.
--------------------------------------
*/
atom_type
Return string with the type of an object.
atom_type Return string with the type of an object .
char* atom_type(atom_t* obj) {
    assert_arg(obj, "atom_type");
    switch(obj->type) {
    case  0: return "NIL";
    case  1: return "NUMBER";
    case  2: return "SYMBOL";
    case  3: return "LIST";
    case  4: return "DICTIONARY";
    case  5: return "FUNCTION";
    case  6: return "STD_OP";
    default: return "UNRECOGNIZED";
    }
}
char * atom_type ( atom_t * obj ) { assert_arg ( obj , " " ) ; switch ( obj -> type ) { case 0 : return " " ; case 1 : return " " ; case 2 : return " " ; case 3 : return " " ; case 4 : return " " ; case 5 : return " " ; case 6 : return " " ; default : return " " ; } }
atom_type
Return string with the type of an object.
atom_type Return string with the type of an object .