Skip to content

Commit

Permalink
remove unused changes.
Browse files Browse the repository at this point in the history
Signed-off-by: Burnleydev1 <[email protected]>
  • Loading branch information
Burnleydev1 committed Aug 8, 2023
1 parent bb8f5d5 commit 0367a68
Showing 1 changed file with 3 additions and 7 deletions.
10 changes: 3 additions & 7 deletions src/context_free.ml
Original file line number Diff line number Diff line change
Expand Up @@ -408,15 +408,11 @@ class map_top_down ?(expect_mismatch_handler = Expect_mismatch_handler.nop)
let hook = generated_code_hook in

let special_functions =
try Rule.filter Special_function rules |> table_of_special_functions
with exn -> raise exn
Rule.filter Special_function rules |> table_of_special_functions
in
let constants =
(try
Rule.filter Constant rules
|> List.map ~f:(fun (c : Rule.Constant.t) ->
((c.suffix, c.kind), c.expand))
with exn -> raise exn)
Rule.filter Constant rules
|> List.map ~f:(fun (c : Rule.Constant.t) -> ((c.suffix, c.kind), c.expand))
|> Hashtbl.of_alist_exn
in
let extensions = Rule.filter Extension rules in
Expand Down

0 comments on commit 0367a68

Please sign in to comment.