| T.Declarative -> G.Declarative
| T.Procedural -> G.Procedural None
in
- command_of_macro (G.Inline (floc, kind, uri, prefix))
+ command_of_macro (G.Inline (floc, kind, uri, prefix, None))
let out_alias och name uri =
Printf.fprintf och "alias id \"%s\" = \"%s\".\n\n" name uri