diff options
Diffstat (limited to 'stdlib/string.ml')
| -rw-r--r-- | stdlib/string.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/stdlib/string.ml b/stdlib/string.ml index 21543abfb..bf5e14c05 100644 --- a/stdlib/string.ml +++ b/stdlib/string.ml @@ -17,7 +17,7 @@ external length : string -> int = "%string_length" external get : string -> int -> char = "%string_safe_get" external set : string -> int -> char -> unit = "%string_safe_set" -external create: int -> string = "create_string" +external create : int -> string = "create_string" external unsafe_get : string -> int -> char = "%string_unsafe_get" external unsafe_set : string -> int -> char -> unit = "%string_unsafe_set" external unsafe_blit : string -> int -> string -> int -> int -> unit @@ -56,6 +56,9 @@ let blit s1 ofs1 s2 ofs2 len = then invalid_arg "String.blit" else unsafe_blit s1 ofs1 s2 ofs2 len +let iter f a = + for i = 0 to length a - 1 do f(unsafe_get a i) done + let concat sep l = match l with [] -> "" |