From 3afeae4cec57fbeb7638e21e39301c18aa81b9d6 Mon Sep 17 00:00:00 2001
From: Thomas Bauereiss
Date: Thu, 19 Oct 2017 15:37:40 +0100
Subject: Rewrite undefined values, add type annotations to early returns

---
 src/rewriter.mli | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/rewriter.mli')

diff --git a/src/rewriter.mli b/src/rewriter.mli
index 1c3e8fae..e42d9b3a 100644
--- a/src/rewriter.mli
+++ b/src/rewriter.mli
@@ -56,6 +56,7 @@ type 'a rewriters = { rewrite_exp  : 'a rewriters -> 'a exp -> 'a exp;
                     
 val rewrite_exp : tannot rewriters -> tannot exp -> tannot exp
 val rewrite_defs : tannot defs -> tannot defs
+val rewrite_undefined : tannot defs -> tannot defs
 val rewrite_defs_ocaml : (string * (tannot defs -> tannot defs)) list (*Perform rewrites to exclude AST nodes not supported for ocaml out*)
 val rewrite_defs_lem : (string * (tannot defs -> tannot defs)) list (*Perform rewrites to exclude AST nodes not supported for lem out*)
 
-- 
cgit v1.2.3