From 518d92d33bcd94cb1b448ab60de146b1814b76fb Mon Sep 17 00:00:00 2001
From: Vincent Laporte
Date: Mon, 22 Jun 2020 10:16:56 +0200
Subject: CoqIDE: accept to open files with invalid names

---
 ide/coqide/coqide.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'ide')

diff --git a/ide/coqide/coqide.ml b/ide/coqide/coqide.ml
index ab2a17798e..b66da11e7b 100644
--- a/ide/coqide/coqide.ml
+++ b/ide/coqide/coqide.ml
@@ -114,8 +114,10 @@ let make_coqtop_args fname =
         (* We basically copy the code of Names.check_valid since it is not exported *)
         (* to coqide. This is to prevent a possible failure of parsing  "-topfile"  *)
         (* at initialization of coqtop (see #10286) *)
+        (* If the file name is a valid identifier, use it as toplevel name; *)
+        (* otherwise the default “Top” will be used. *)
         match Unicode.ident_refutation (Filename.chop_extension (Filename.basename fname)) with
-        | Some (_,x) -> output_string stderr (x^"\n"); exit 1
+        | Some _ -> args
         | None -> "-topfile"::fname::args
   in
   proj, args
-- 
cgit v1.2.3