diff options
| author | Son Ho | 2023-12-22 19:17:09 +0100 |
|---|---|---|
| committer | Son Ho | 2023-12-22 19:17:09 +0100 |
| commit | 29f358f4072ee4c6530b4c523a1754d4c0723893 (patch) | |
| tree | dfe24e132c65a0e1dbb53367d879d17ce8a206cf /compiler | |
| parent | 20f743016400fadc5726203e3631d32b6244bd1b (diff) | |
Fix a minor extraction issue
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/Extract.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/Extract.ml b/compiler/Extract.ml index 04ad3b75..3d9f0c22 100644 --- a/compiler/Extract.ml +++ b/compiler/Extract.ml @@ -610,7 +610,7 @@ and extract_Lambda (ctx : extraction_ctx) (fmt : F.formatter) (inside : bool) ctx xl in F.pp_print_space fmt (); - if !backend = Lean then F.pp_print_string fmt "=>" + if !backend = Lean || !backend = Coq then F.pp_print_string fmt "=>" else F.pp_print_string fmt "->"; F.pp_print_space fmt (); (* Print the body *) |