diff options
| author | Son Ho | 2022-04-27 17:16:36 +0200 |
|---|---|---|
| committer | Son Ho | 2022-04-27 17:16:36 +0200 |
| commit | bc08144137b007798066b939a818a0481f453f2a (patch) | |
| tree | f5c9b67dd7efe83de3a3a7ac68f30e0700991fa9 /src/SymbolicToPure.ml | |
| parent | 122dc6bfe7075fef7389c716ba2cc1aa7ed2fe02 (diff) | |
Make a minor modification
Diffstat (limited to '')
| -rw-r--r-- | src/SymbolicToPure.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/SymbolicToPure.ml b/src/SymbolicToPure.ml index 49bf3559..64f8f481 100644 --- a/src/SymbolicToPure.ml +++ b/src/SymbolicToPure.ml @@ -948,9 +948,11 @@ let get_abs_ancestors (ctx : bs_ctx) (abs : V.abs) : S.call * V.abs list = (** Small utility. - Return: (function is monadic, function uses state monad) + Return: (function is monadic, if monadic, function uses state monad) Note that all functions are monadic except some assumed functions. + + TODO: use an enumeration *) let fun_is_monadic (fun_id : A.fun_id) : bool * bool = match fun_id with |