Quote S-expression atoms emitted by discover.ml

Fixes #671 (comment).
ocsigen · Mar 6, 2019 · 98303de · 98303de
1 parent 33a44df
commit 98303de
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/unix/config/discover.ml b/src/unix/config/discover.ml
@@ -846,6 +846,7 @@ Lwt can use pthread or the win32 API.
 
   let write_sexp n x =
     let f = open_out n in
+    let x = List.map (Printf.sprintf "\"%s\"") x in
     output_string f ("(" ^ String.concat " " x ^ ")");
     close_out f
   in