diff options
Diffstat (limited to 'bytecomp')
| -rw-r--r-- | bytecomp/translcore.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bytecomp/translcore.ml b/bytecomp/translcore.ml index 3a93371195..fe7dd0bfd7 100644 --- a/bytecomp/translcore.ml +++ b/bytecomp/translcore.ml @@ -878,7 +878,11 @@ and transl_exp0 e = | Texp_generic cases -> (* FIXME *) lambda_unit - + | Texp_regexp (r, regexp, t, code) -> + Lprim(Pmakeblock(0, Immutable), + [ Lconst (Const_base (Const_string r)); + Metacomp.transl_constant [] (Obj.repr t); + transl_exp code ]) and transl_list expr_list = List.map transl_exp expr_list |