From 95933de17c122f254bd91231d04b9cab89f134c3 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Mon, 27 Apr 1998 09:55:50 +0000 Subject: Corrections mineures sur la documentation git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1933 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- stdlib/array.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stdlib/array.ml') diff --git a/stdlib/array.ml b/stdlib/array.ml index 3c012062b..0b753d3a3 100644 --- a/stdlib/array.ml +++ b/stdlib/array.ml @@ -50,7 +50,7 @@ let copy a = let append a1 a2 = let l1 = length a1 and l2 = length a2 in - if l1 = 0 & l2 = 0 then [||] else begin + if l1 = 0 && l2 = 0 then [||] else begin let r = create (l1 + l2) (unsafe_get (if l1 > 0 then a1 else a2) 0) in for i = 0 to l1 - 1 do unsafe_set r i (unsafe_get a1 i) done; for i = 0 to l2 - 1 do unsafe_set r (i + l1) (unsafe_get a2 i) done; -- cgit v1.2.3-70-g09d2