Skip to content

Commit

Permalink
Fix ocaml 4.02.3 compatibility
Browse files Browse the repository at this point in the history
  • Loading branch information
mroch committed Dec 8, 2017
1 parent 8ad734d commit 0ae4e64
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/wtf8.ml
Original file line number Diff line number Diff line change
Expand Up @@ -82,7 +82,7 @@ let fold_wtf_8 ?(pos = 0) ?len f acc s =

(* Add a UTF-16 code unit to a buffer, encoded in WTF-8. *)
let add_wtf_8 buf code =
let w byte = Buffer.add_char buf (Char.unsafe_chr byte) [@@inline] in
let[@inline] w byte = Buffer.add_char buf (Char.unsafe_chr byte) in
if code >= 0x10000 then begin
(* 4 bytes *)
w (0xf0 lor (code lsr 18));
Expand Down

0 comments on commit 0ae4e64

Please sign in to comment.