- G.Executable (loc, G.Command (loc, G.Include (iloc, normal, fname)))
- in
- Obj.magic !grafite_callback status stm;
- let _root, buri, fullpath, _rrelpath =
- Librarian.baseuri_of_script ~include_paths fname
- in
+ G.Executable
+ (loc, G.Command (loc, G.Include (iloc,normal,`OldAndNew,fname))) in
+ !grafite_callback stm;