summaryrefslogtreecommitdiff
path: root/src/rewriter.ml
diff options
context:
space:
mode:
authorBrian Campbell2018-12-29 14:00:40 +0000
committerBrian Campbell2018-12-29 14:00:40 +0000
commitac945514d59d91e51a63149b39b472421e59e299 (patch)
treef6fc5f9b4d243705a27ee6d0d2d72f8d32d2f3f3 /src/rewriter.ml
parent2c887e7d01331d3165120695594eac7a2650ec03 (diff)
Add separate termination_measure declarations
Diffstat (limited to 'src/rewriter.ml')
-rw-r--r--src/rewriter.ml1
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