diff options
-rw-r--r-- | lib/future.ml | 2 | ||||
-rw-r--r-- | toplevel/stm.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/future.ml b/lib/future.ml index 9333089fb..a9a5ee588 100644 --- a/lib/future.ml +++ b/lib/future.ml @@ -17,7 +17,7 @@ let _ = Errors.register_handler (function | NotReady -> Pp.strbrk("The value you are asking for is not ready yet. " ^ "Please wait or pass "^ - "the \"-coq-slaves off\" option to CoqIDE to disable"^ + "the \"-coq-slaves off\" option to CoqIDE to disable "^ "asynchronous script processing.") | NotHere -> Pp.strbrk("The value you are asking for is not available "^ diff --git a/toplevel/stm.ml b/toplevel/stm.ml index d033953bd..215162b85 100644 --- a/toplevel/stm.ml +++ b/toplevel/stm.ml @@ -666,7 +666,7 @@ end = struct (* {{{ *) | VCS.Expired -> (* task cancelled: e.g. the user did backtrack *) prerr_endline ("Task expired: " ^ pr_task task) | MarshalError -> (* TODO *) - prerr_endline "TODO: Mathshalling Error"; + prerr_endline "TODO: Marshalling Error"; prerr_endline "We should be resilient and fall back to lazy" | e -> prerr_endline (string_of_ppcmds (print e)) |