small change for benchs on 4.02

This commit is contained in:
Simon Cruanes 2017-09-18 10:23:33 +02:00
parent 4cc9862ef8
commit 01e8720797

View file

@ -1217,7 +1217,7 @@ module Str = struct
false
else
let sub = String.sub s 0 len_p in
String.equal prfx sub
CCString.equal prfx sub
let bat_prefix ~pre:p str =
let len = String.length p in