Update filterProg for methods renamed upstream

CakeML · Jun 6, 2019 · 1a488c1 · 1a488c1
1 parent 38556cc
commit 1a488c1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/filterProgScript.sml b/examples/filterProgScript.sml
@@ -31,7 +31,7 @@ val stdErr_print = regexpMisc.stdErr_print;
 fun regexpc r =
  let open listSyntax regexpSyntax
      val _ = stdErr_print "Compiling regexp to DFA by deduction (can be slow) :\n"
-     val regexp_tm = regexpSyntax.mk_regexp r
+     val regexp_tm = regexpSyntax.regexp_to_term r
      val compile_thm = Count.apply regexpEval ``regexp_compiler$compile_regexp ^regexp_tm``
      val triple = rhs (concl compile_thm)
      val [t1,t2,t3] = strip_pair triple