- new_lexicon_status, (grafite_status ,Some (k,value))::acc
- ) (lexicon_status,[]) new_aliases
- in
- let new_grafite_status =
- GrafiteTypes.set_estatus new_lexicon_status new_grafite_status
+ new_status, (new_status ,Some (k,value))::acc
+ ) (status,[]) new_aliases