Commit 941672fa authored by Clément Fumex's avatar Clément Fumex
Browse files

... and make it compile

parent db3112b7
......@@ -415,11 +415,12 @@ let rec wrap : type a. a trans_typ -> a -> trans_with_args =
end
(* example of use: TO BE REMOVED*)
let case : term -> task -> task list = assert false
let aus : int -> term -> string -> task -> task list = assert false
(*
let case : term -> task -> task list = ...
let aus : int -> term -> string -> task -> task list = ...
let case' = wrap (Tterm Ttrans) case
let aus' = wrap (Tint (Tterm (Tstring Ttrans))) aus
let case' = wrap (Tterm Ttrans) case
let aus' = wrap (Tint (Tterm (Tstring Ttrans))) aus *)
(*
......
Supports Markdown
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