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))
| T.Heading heading -> out_preamble och heading
| T.Line line ->
if !O.comments then out_line_comment och line
- | T.Include (src, script) -> out_command och (require src script)
+ | T.Include (moo, script) -> out_command och (require moo script)
| T.Coercion specs ->
if !O.comments then out_unexported och "COERCION" (snd specs)
| T.Notation specs ->