compat ocaml 3.03

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2291 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/edit.ml b/lib/edit.ml
index ca41a04365..04a382a586 100644
--- a/lib/edit.ml
+++ b/lib/edit.ml
@@ -83,20 +83,20 @@ let undo e n =
     | Some d ->
 	let (bs,_) = Hashtbl.find e.buf d in
 	if Bstack.depth bs <= n then
-          errorlabstrm "Edit.undo" [< 'sTR"Undo stack would be exhausted" >];
+          errorlabstrm "Edit.undo" (str"Undo stack would be exhausted");
         repeat n (fun () -> let _ = Bstack.pop bs in ()) ()
 
 let create e (d,b,c,udepth) =
   if Hashtbl.mem e.buf d then
     errorlabstrm "Edit.create" 
-      [< 'sTR"Already editing something of that name" >];
+      (str"Already editing something of that name");
   let bs = Bstack.create udepth in
   Bstack.push bs b;
   Hashtbl.add e.buf d (bs,c)
 
 let delete e d =
   if not(Hashtbl.mem e.buf d) then
-    errorlabstrm "Edit.delete" [< 'sTR"No such editor" >];
+    errorlabstrm "Edit.delete" (str"No such editor");
   Hashtbl.remove e.buf d;
   e.last_focused_stk <- (list_except d e.last_focused_stk);
   match e.focus with