diff options
| author | Emilio Jesus Gallego Arias | 2019-11-21 15:38:39 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-11-21 15:38:39 +0100 |
| commit | d016f69818b30b75d186fb14f440b93b0518fc66 (patch) | |
| tree | 32cd948273f79a2c01ad27b4ed0244ea60d7e2f9 /lib/explore.ml | |
| parent | b680b06b31c27751a7d551d95839aea38f7fbea1 (diff) | |
[coq] Untabify the whole ML codebase.
We also remove trailing whitespace.
Script used:
```bash
for i in `find . -name '*.ml' -or -name '*.mli' -or -name '*.mlg'`; do expand -i "$i" | sponge "$i"; sed -e's/[[:space:]]*$//' -i.bak "$i"; done
```
Diffstat (limited to 'lib/explore.ml')
| -rw-r--r-- | lib/explore.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/explore.ml b/lib/explore.ml index e30dd7e809..42d48fbc1b 100644 --- a/lib/explore.ml +++ b/lib/explore.ml @@ -48,7 +48,7 @@ module Make = functor(S : SearchProblem) -> struct | [] -> raise Not_found | [s] -> explore (i::p) s | s :: l -> - try explore (i::p) s with Not_found -> explore_many (succ i) p l + try explore (i::p) s with Not_found -> explore_many (succ i) p l in explore [1] s @@ -82,11 +82,11 @@ module Make = functor(S : SearchProblem) -> struct enqueue 1 p q' (S.branching s) and enqueue i p q = function | [] -> - explore q + explore q | s :: l -> - let ps = i::p in - msg_with_position ps (S.pp s); - if S.success s then s else enqueue (succ i) p (push (ps,s) q) l + let ps = i::p in + msg_with_position ps (S.pp s); + if S.success s then s else enqueue (succ i) p (push (ps,s) q) l in enqueue 1 [] empty [s] |
