diff options
| author | Thomas Bauereiss | 2017-08-29 17:09:29 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2017-08-29 17:47:16 +0100 |
| commit | 80a65e821d52fcc414b50f33d0dff60f7a38bd5f (patch) | |
| tree | 5f7de081777da60b7f89f7917fe029eb4c0c61e8 /src/util.ml | |
| parent | c93ce2690e4090f4b3b6e5fa244aac9903008ded (diff) | |
Improve flow typing
Can now handle nexps such as (2**65 - 1). Uses big_ints for comparisons, and
keeps original nexps in the AST.
Diffstat (limited to 'src/util.ml')
| -rw-r--r-- | src/util.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/util.ml b/src/util.ml index 75732376..c89cc1ef 100644 --- a/src/util.ml +++ b/src/util.ml @@ -204,10 +204,8 @@ let option_bind f = function | Some(o) -> f o let rec option_binop f x y = match x, y with - | None, None -> None - | Some x, None -> Some x - | None, Some y -> Some y | Some x, Some y -> Some (f x y) + | _ -> None let changed2 f g x h y = match (g x, h y) with |