diff options
Diffstat (limited to 'lib/util.ml')
-rw-r--r-- | lib/util.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/util.ml b/lib/util.ml index 2358ba48f..755d4657d 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -77,7 +77,7 @@ module Stack = CStack let matrix_transpose mat = List.fold_right (List.map2 (fun p c -> p::c)) mat - (if mat = [] then [] else List.map (fun _ -> []) (List.hd mat)) + (if List.is_empty mat then [] else List.map (fun _ -> []) (List.hd mat)) (* Functions *) |