props.ml

   1 (* $Id$ *)
   2
   3 (** Association list *)
   4 type t = (string * string) list
   5  deriving (Show)
   6
   7 let get x n = try Some (List.assoc n x) with Not_found -> None
   8 let set x n v = (n,v)::(List.remove_assoc n x)
   9 let empty = []