diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 6a9f391a05..80abf5421d 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -2216,7 +2216,7 @@ let connected x y (g : graph) = LMap.fold fold neighbours seen else seen in - try connected x y LSet.empty g; false with Connected -> true + try ignore(connected x y LSet.empty g); false with Connected -> true let add_edge x y v (g : graph) = try |