diff options
| author | Alasdair Armstrong | 2017-11-15 17:31:51 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-11-15 17:31:51 +0000 |
| commit | 74d2157a022ce0036a1513bd2dada5fb55b71719 (patch) | |
| tree | d8befa5a63387301816db0367e24194b0e20bc9e /src/ast_util.ml | |
| parent | bb18d5067a46b9e71f57285abce41c1f89e87812 (diff) | |
| parent | ab2b7e532247e03fc6c4e2ca0ccd139e7a4aca0f (diff) | |
Merge branch 'smt' into experiments
Diffstat (limited to 'src/ast_util.ml')
| -rw-r--r-- | src/ast_util.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/ast_util.ml b/src/ast_util.ml index 5393bb81..aa3efc40 100644 --- a/src/ast_util.ml +++ b/src/ast_util.ml @@ -458,6 +458,7 @@ and string_of_nexp_aux = function | Nexp_times (n1, n2) -> "(" ^ string_of_nexp n1 ^ " * " ^ string_of_nexp n2 ^ ")" | Nexp_sum (n1, n2) -> "(" ^ string_of_nexp n1 ^ " + " ^ string_of_nexp n2 ^ ")" | Nexp_minus (n1, n2) -> "(" ^ string_of_nexp n1 ^ " - " ^ string_of_nexp n2 ^ ")" + | Nexp_app (id, nexps) -> string_of_id id ^ "(" ^ string_of_list ", " string_of_nexp nexps ^ ")" | Nexp_exp n -> "2 ^ " ^ string_of_nexp n | Nexp_neg n -> "- " ^ string_of_nexp n |