module N = NotationPt
module G = GrafiteAst
-type ast_statement = G.statement
-
let exc_located_wrapper f =
try
f ()
statement
;;
-type db = ast_statement Grammar.Entry.e ;;
+type db = GrafiteAst.statement Grammar.Entry.e ;;
class type g_status =
object