this repo has no description
Merge branch 'cmstatefield'
+8
-1
+8
-1
src/decoration.ml
+8
-1
src/decoration.ml
···
49
49
Jv.call range_set "of" [| Jv.of_array Range.to_jv ranges |] |> of_jv
50
50
51
51
let empty = Jv.get range_set "empty" |> of_jv
52
-
let map t changes = Jv.call t "map" [| changes |] |> of_jv
52
+
53
+
let safe_map =
54
+
Jv.new' (Jv.get Jv.global "Function")
55
+
[| Jv.of_string "rs"; Jv.of_string "ch"; Jv.of_string "em";
56
+
Jv.of_string "try { return rs.map(ch); } catch(e) { return em; }" |]
57
+
58
+
let map t changes =
59
+
Jv.call safe_map "call" [| Jv.null; t; changes; to_jv empty |] |> of_jv
53
60
end