diff options
| author | Son HO | 2022-09-22 16:26:39 +0200 |
|---|---|---|
| committer | GitHub | 2022-09-22 16:26:39 +0200 |
| commit | f76262172b1331c2e3b4d27bce777f30c0ca7967 (patch) | |
| tree | 15231133e48e1ec686c57ee813b18b328ccaa84d | |
| parent | 512b1ff5747f6c805e72d6847f4a6a10bffade7f (diff) | |
Update src/ExtractToFStar.ml
| -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 7f271f02..29203bc4 100644 --- a/src/ExtractToFStar.ml +++ b/src/ExtractToFStar.ml @@ -1491,7 +1491,7 @@ let extract_fun_decl (ctx : extraction_ctx) (fmt : F.formatter) (* Add breaks to insert new lines between definitions *) F.pp_print_break fmt 0 0 -(** Extract a global definition of the shape "QUALIF NAME : TYPE = BODY" with a custom body extractor *) +(** Extract a global declaration body of the shape "QUALIF NAME : TYPE = BODY" with a custom body extractor *) let extract_global_decl_body (ctx : extraction_ctx) (fmt : F.formatter) (qualif : fun_decl_qualif) (name : string) (ty : ty) (extract_body : (F.formatter -> unit) Option.t) |