diff options
| author | Thomas Bauereiss | 2019-01-09 13:05:24 +0000 |
|---|---|---|
| committer | Thomas Bauereiss | 2019-01-09 13:05:24 +0000 |
| commit | def64efa7620f6cce2b58d4158ce6df3a1d9847d (patch) | |
| tree | f0bf4252f8cc3baba406117acf343a285a633dd3 /src/rewriter.ml | |
| parent | 886cff213039c034bc78408ea52689514e0c9a69 (diff) | |
| parent | 5aa29f88c1e31bb9435929f86325f499dccf6d50 (diff) | |
Merge sail2 into monads
Diffstat (limited to 'src/rewriter.ml')
| -rw-r--r-- | src/rewriter.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/rewriter.ml b/src/rewriter.ml index a70f6fab..21310b91 100644 --- a/src/rewriter.ml +++ b/src/rewriter.ml @@ -364,6 +364,7 @@ let rewrite_def rewriters d = match d with | DEF_val letbind -> DEF_val (rewriters.rewrite_let rewriters letbind) | DEF_pragma (pragma, arg, l) -> DEF_pragma (pragma, arg, l) | DEF_scattered _ -> raise (Reporting.err_unreachable Parse_ast.Unknown __POS__ "DEF_scattered survived to rewritter") + | DEF_measure (id,pat,exp) -> DEF_measure (id,rewriters.rewrite_pat rewriters pat, rewriters.rewrite_exp rewriters exp) let rewrite_defs_base rewriters (Defs defs) = let rec rewrite ds = match ds with |