diff options
Diffstat (limited to 'src/trace/smtMisc.ml')
-rw-r--r-- | src/trace/smtMisc.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/trace/smtMisc.ml b/src/trace/smtMisc.ml index aad8b07..41c741d 100644 --- a/src/trace/smtMisc.ml +++ b/src/trace/smtMisc.ml @@ -50,3 +50,9 @@ module SL = Set.Make (struct end) type logic = SL.t + + +(** Utils *) +let rec filter_map f = function + | [] -> [] + | x::xs -> match f x with Some x -> x::(filter_map f xs) | None -> filter_map f xs |