Salut,
J'essaie en vain de passer ce module en version #light
pour infos, il passe en syntaxe normale
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 module Environment : sig val assign : environment -> string -> valeur -> unit val find : environment -> string -> valeur val create : int -> environment val iter : (string -> valeur -> unit) -> environment -> unit end = struct //include Hashtbl let create i : environment = Hashtbl.create i let find env (v : string) : valeur = Hashtbl.find env v let iter f (env : environment) = Hashtbl.iter f env let assign env (v : string) (val_expr : valeur) = try let _ = Hashtbl.find env v Hashtbl.replace env v val_expr with Not_found -> Hashtbl.add env v val_expr end
au passage, le sig ne sert à rien puisque le include n'a pas marché
Partager