- let default_dom_item = function
- | Id (s,_) -> Id (s,None)
- | Symbol (s,_) -> Symbol (s,None)
- | Num _ -> Num None
- in
- (*
- try
- let current = find k env in
- let dsc = desc_of_alias v in
- let entry = v::(List.filter (fun x -> desc_of_alias x <> dsc) current) in
- let id = match k with
- | Id (id,_) -> id
- | Symbol (sym,_) -> "SYMBOL:"^sym
- | Num _ -> "NUM"
- in
- prerr_endline (Printf.sprintf "updated alias for %s with entry of length %d (was: %d)" id (List.length entry) (List.length current));
- let res = add k entry env
- in
- let test = find k res in
- prerr_endline (Printf.sprintf "so the current length of the entry is %d."
- (List.length test));
- res
- with Not_found -> add k [v] env
- *)