Symbol.ml
forester.core
forester.frontend
forester.prelude
forester.render
1 2 3 4 5 6 7 8 9 10 11 12 type t = Trie.path * int let counter = ref 0 let fresh path = counter := !counter + 1; path, !counter let pp fmt (sym, ix) = Format.fprintf fmt "%a%i" Trie.pp_path sym ix let compare = compare
1 2 3 4 5 6 7 8 9 10 11 12
type t = Trie.path * int let counter = ref 0 let fresh path = counter := !counter + 1; path, !counter let pp fmt (sym, ix) = Format.fprintf fmt "%a%i" Trie.pp_path sym ix let compare = compare