Rozbudowa, poprawa varda.
Sugestie:
ard_att_add(NewAttribute) :- atom(NewAttribute), \+ ard_att(NewAttribute), assert(ard_att(NewAttribute)). ard_att_add(NewAttribute,Id) :- atom(NewAttribute), \+ ard_att(_,NewAttribute), get_new_att_id(Id), assert(ard_att(Id,NewAttribute)).