From e251cc88ebe573a870dbc350b3795808bea63069 Mon Sep 17 00:00:00 2001
From: Hugo Heuzard <hugo.heuzard@gmail.com>
Date: Thu, 31 Oct 2019 22:07:59 +0800
Subject: [PATCH] Compiler: escape '</' in strings

---
 compiler/lib/js_output.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index f96034bd3f..a8b22a591a 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -298,6 +298,8 @@ struct
          | '\011' -> "\\v"
       *)
       | '\012' -> PP.string f "\\f"
+      (* https://github.com/ocsigen/js_of_ocaml/issues/898 *)
+      | '/' when i > 0 && Char.equal s.[i - 1] '<' -> PP.string f "\\/"
       | '\\' when not utf -> PP.string f "\\\\"
       | '\r' -> PP.string f "\\r"
       | '\000' .. '\031' | '\127' ->