let command_of_macro macro =
G.Executable (floc, G.Macro (floc, macro))
let command_of_macro macro =
G.Executable (floc, G.Macro (floc, macro))
-let require src value =
- command_of_obj (G.Include (floc, src, value ^ ".ma"))
+let require moo value =
+ command_of_obj (G.Include (floc, moo, `OldAndNew, value ^ ".ma"))
let coercion value =
command_of_obj (G.Coercion (floc, UM.uri_of_string value, true, 0, 0))
let coercion value =
command_of_obj (G.Coercion (floc, UM.uri_of_string value, true, 0, 0))