diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2017-02-05 01:46:41 +0100 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2017-02-07 22:56:56 +0100 |
| commit | 69c4e7cfa0271f024b2178082e4be2e3ca3be263 (patch) | |
| tree | 011f39f68dcc1da8c622adf32931ca084a2f8c15 /plugins/extraction/scheme.ml | |
| parent | 8ef3bc0e8a65b3a0338da39aa54cd75b1c2c1bb7 (diff) | |
Extraction: avoid deprecated functions of module String
- A few tweaks of string are now done via the Bytes module
- lots of String.capitalize_ascii and co
Diffstat (limited to 'plugins/extraction/scheme.ml')
| -rw-r--r-- | plugins/extraction/scheme.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/plugins/extraction/scheme.ml b/plugins/extraction/scheme.ml index a6309e61f..3bd16138f 100644 --- a/plugins/extraction/scheme.ml +++ b/plugins/extraction/scheme.ml @@ -39,12 +39,7 @@ let preamble _ comment _ usf = str "(load \"macros_extr.scm\")\n\n" ++ (if usf.mldummy then str "(define __ (lambda (_) __))\n\n" else mt ()) -let pr_id id = - let s = Id.to_string id in - for i = 0 to String.length s - 1 do - if s.[i] == '\'' then s.[i] <- '~' - done; - str s +let pr_id id = str (unquote (Id.to_string id)) let paren = pp_par true |