diff options
| author | Matthieu Sozeau | 2014-05-16 13:03:55 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-16 13:03:55 +0200 |
| commit | 842403acdbfe9812c45bd530cf6d9fa2a62842db (patch) | |
| tree | 3cddf418c6548c725b25b19c7df7d2e84185d5bd /kernel | |
| parent | 44a5a0acb020be92ffe39209caf414b57c759139 (diff) | |
Another try at close_proof that should behave better w.r.t. exception handling.
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 |