Commit 241a2451 authored by Andrei Paskevich's avatar Andrei Paskevich

continue

parent 81cffbfb
......@@ -44,7 +44,7 @@ let comp t task =
| Decl d -> add_decl task (decl_map fnT fnF d)
| td -> add_tdecl task td
let comp = Register.store (fun () -> Trans.map comp None)
let compile_match = Register.store (fun () -> Trans.map comp None)
let () = Register.register_transform "compile_match" comp
let () = Register.register_transform "compile_match" compile_match
......@@ -17,3 +17,5 @@
(* *)
(**************************************************************************)
val compile_match : Task.task Register.trans_reg
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment