Spis treści

Opis

Rozbudowa, poprawa varda.

Sugestie:

Spotkania

Materiały

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)).