let rec _Traitement_Enum nomModule identifiant our_Hash_table =
match our_Hash_table with
[] ->
((identifiant, Inconnu), false)
| Autre(nomM, _, Enum(arguments))
::liste_restante ->
if nomModule = nomM
then
let _type, modification = _Parcours_Enum arguments identifiant
in
((identifiant, _type), modification)
else
_Traitement_Enum nomModule identifiant liste_restante
| _::liste_restante ->
_Traitement_Enum nomModule identifiant liste_restante