Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
#5995: better naming of exceptions when compiling with -for-pack.
  • Loading branch information
alainfrisch committed Dec 11, 2015
1 parent 44b8b51 commit a24e4ed
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions bytecomp/translmod.ml
Expand Up @@ -50,9 +50,10 @@ let prim_fresh_oo_id =

let transl_extension_constructor env path ext =
let name =
match path with
None -> Ident.name ext.ext_id
| Some p -> Path.name p
match path, !Clflags.for_package with
None, _ -> Ident.name ext.ext_id
| Some p, None -> Path.name p
| Some p, Some pack -> Printf.sprintf "%s.%s" pack (Path.name p)
in
match ext.ext_kind with
Text_decl(args, ret) ->
Expand Down

0 comments on commit a24e4ed

Please sign in to comment.