Source file sexps.ml

open Core

include Hash_set.Make (struct
  type t = Sexp.t =
    | Atom of string
    | List of t list
  [@@deriving compare]

  let sexp_of_t = Fn.id
  let t_of_sexp = Fn.id

  let rec hash = function
    | Atom s -> String.hash s
    | List ts -> List.fold ts ~init:(List.length ts) ~f:(fun n t -> n lxor hash t)
  ;;
end)

(** hide optional args *)
let create () = create ()

let of_list sexps = of_list sexps