diff options
| author | Sidney Congard | 2022-08-08 15:16:14 +0200 |
|---|---|---|
| committer | Sidney Congard | 2022-08-08 15:16:14 +0200 |
| commit | 3c5fb260012ee8bb8b9fd90bc4624d893ac7678a (patch) | |
| tree | 6702e5d4b3b01aa1a96da150dd17ca6f4dfce326 /src/ExtractToFStar.ml | |
| parent | f9015d1e956ace6c875eb6a631caeac49cfb8148 (diff) | |
Register global names, one error remaining
Diffstat (limited to '')
| -rw-r--r-- | src/ExtractToFStar.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/ExtractToFStar.ml b/src/ExtractToFStar.ml index a2b15ece..c915aede 100644 --- a/src/ExtractToFStar.ml +++ b/src/ExtractToFStar.ml @@ -794,6 +794,11 @@ let extract_fun_decl_register_names (ctx : extraction_ctx) (keep_fwd : bool) (* Return *) ctx +(** Simply add the global name to the context. *) +let extract_global_decl_register_names (ctx : extraction_ctx) (def : A.global_decl) + : extraction_ctx = + ctx_add_global_decl def ctx + (** The following function factorizes the extraction of ADT values. Note that patterns can introduce new variables: we thus return an extraction |