Commit a8affa1c authored by Stefan Berghofer's avatar Stefan Berghofer Committed by MARCHE Claude

Avoid generating names ending with underscores

parent c73e212f
......@@ -49,7 +49,7 @@ let black_list =
["o"; "O"]
let fresh_printer () =
let isanitize = sanitizer char_to_alpha char_to_alnumus in
let isanitize = sanitizer' char_to_alpha char_to_alnumus char_to_alnum in
create_ident_printer black_list ~sanitizer:isanitize
let iprinter = fresh_printer ()
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment