diff options
| author | Son Ho | 2022-05-04 16:16:26 +0200 |
|---|---|---|
| committer | Son Ho | 2022-05-04 16:16:26 +0200 |
| commit | 725802f22e8ead231f9b26f55cdc33030361017f (patch) | |
| tree | a645a24fa4888a59b3ef53471ae3ac6f837cff1a /src/ExtractToFStar.ml | |
| parent | 22c7465c940bf6df5b7068e4e61742bcdfc38151 (diff) | |
Make minor modifications
Diffstat (limited to '')
| -rw-r--r-- | src/ExtractToFStar.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ExtractToFStar.ml b/src/ExtractToFStar.ml index 1c93c9da..c5d078f9 100644 --- a/src/ExtractToFStar.ml +++ b/src/ExtractToFStar.ml @@ -1406,7 +1406,7 @@ let extract_fun_decl (ctx : extraction_ctx) (fmt : F.formatter) *) let num_fwd_inputs = def.signature.info.num_fwd_inputs in let num_fwd_inputs = - if def.signature.info.input_state then 1 + num_fwd_inputs + if def.signature.info.effect_info.input_state then 1 + num_fwd_inputs else num_fwd_inputs in Collections.List.prefix num_fwd_inputs all_inputs |