diff options
| -rw-r--r-- | contrib/extraction/g_extraction.ml4 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/contrib/extraction/g_extraction.ml4 b/contrib/extraction/g_extraction.ml4 index a2c8bc4569..92728c7862 100644 --- a/contrib/extraction/g_extraction.ml4 +++ b/contrib/extraction/g_extraction.ml4 @@ -37,6 +37,21 @@ VERNAC ARGUMENT EXTEND language | [ "Toplevel" ] -> [ Toplevel ] END +(* Temporary for translator *) +if !Options.v7 then + let pr_language _ _ = function + | Ocaml -> str " Ocaml" + | Haskell -> str " Haskell" + | Scheme -> str " Scheme" + | Toplevel -> str " Toplevel" + in + let globwit_language = Obj.magic rawwit_language in + let wit_language = Obj.magic rawwit_language in + Pptactic.declare_extra_genarg_pprule true + (rawwit_language, pr_language) + (globwit_language, pr_language) + (wit_language, pr_language); + (* Extraction commands *) VERNAC COMMAND EXTEND Extraction |