diff options
| author | Jason Gross | 2018-07-11 04:14:59 -0400 |
|---|---|---|
| committer | Jason Gross | 2018-07-16 09:50:42 -0400 |
| commit | 8458615318b2b67a38e356d68926a0838b908fe6 (patch) | |
| tree | f5bd28bfcd552b8799273203fe5e1aec0e4c1e0d /plugins/extraction/ExtrOcamlString.v | |
| parent | a697b20f5013abb834cd9dca3fdef2bee53221ad (diff) | |
Add Extract Inlined Constant directives for {String,Ascii}.eqb
Diffstat (limited to 'plugins/extraction/ExtrOcamlString.v')
| -rw-r--r-- | plugins/extraction/ExtrOcamlString.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/extraction/ExtrOcamlString.v b/plugins/extraction/ExtrOcamlString.v index 030b486b26..a2a6a8fe67 100644 --- a/plugins/extraction/ExtrOcamlString.v +++ b/plugins/extraction/ExtrOcamlString.v @@ -33,6 +33,7 @@ Extract Constant shift => "fun b c -> Char.chr (((Char.code c) lsl 1) land 255 + if b then 1 else 0)". Extract Inlined Constant ascii_dec => "(=)". +Extract Inlined Constant Ascii.eqb => "(=)". Extract Inductive string => "char list" [ "[]" "(::)" ]. |