diff options
Diffstat (limited to 'tactics/autorewrite.ml')
| -rw-r--r-- | tactics/autorewrite.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/autorewrite.ml b/tactics/autorewrite.ml index c8d1c4370..3216a6065 100644 --- a/tactics/autorewrite.ml +++ b/tactics/autorewrite.ml @@ -44,7 +44,7 @@ let one_base tac_main bas = let lrul = Hashtbl.find_all !rewtab bas in if lrul = [] then errorlabstrm "AutoRewrite" - [<'sTR ("Rewriting base "^(bas)^" does not exist") >] + (str ("Rewriting base "^(bas)^" does not exist")) else tclREPEAT_MAIN (tclPROGRESS (List.fold_left (fun tac (csr,dir,tc) -> tclTHEN tac |