diff options
| author | Gaëtan Gilbert | 2019-11-21 16:46:11 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-11-21 16:46:11 +0100 |
| commit | c0f34539209842735ccb93f3c069632b7eee4d6c (patch) | |
| tree | 32cd948273f79a2c01ad27b4ed0244ea60d7e2f9 /kernel/nativelibrary.ml | |
| parent | b680b06b31c27751a7d551d95839aea38f7fbea1 (diff) | |
| parent | d016f69818b30b75d186fb14f440b93b0518fc66 (diff) | |
Merge PR #11010: [coq] Untabify the whole ML codebase.
Reviewed-by: SkySkimmer
Reviewed-by: herbelin
Diffstat (limited to 'kernel/nativelibrary.ml')
| -rw-r--r-- | kernel/nativelibrary.ml | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/kernel/nativelibrary.ml b/kernel/nativelibrary.ml index 1dbab6c690..7f46d4e173 100644 --- a/kernel/nativelibrary.ml +++ b/kernel/nativelibrary.ml @@ -30,29 +30,29 @@ and translate_field prefix mp env acc (l,x) = let con = Constant.make2 mp l in (if !Flags.debug then let msg = Printf.sprintf "Compiling constant %s..." (Constant.to_string con) in - Feedback.msg_debug (Pp.str msg)); + Feedback.msg_debug (Pp.str msg)); compile_constant_field env prefix con acc cb | SFBmind mb -> (if !Flags.debug then - let id = mb.mind_packets.(0).mind_typename in - let msg = Printf.sprintf "Compiling inductive %s..." (Id.to_string id) in - Feedback.msg_debug (Pp.str msg)); + let id = mb.mind_packets.(0).mind_typename in + let msg = Printf.sprintf "Compiling inductive %s..." (Id.to_string id) in + Feedback.msg_debug (Pp.str msg)); compile_mind_field mp l acc mb | SFBmodule md -> let mp = md.mod_mp in (if !Flags.debug then - let msg = - Printf.sprintf "Compiling module %s..." (ModPath.to_string mp) - in - Feedback.msg_debug (Pp.str msg)); + let msg = + Printf.sprintf "Compiling module %s..." (ModPath.to_string mp) + in + Feedback.msg_debug (Pp.str msg)); translate_mod prefix mp env md.mod_type acc | SFBmodtype mdtyp -> let mp = mdtyp.mod_mp in (if !Flags.debug then - let msg = - Printf.sprintf "Compiling module type %s..." (ModPath.to_string mp) - in - Feedback.msg_debug (Pp.str msg)); + let msg = + Printf.sprintf "Compiling module type %s..." (ModPath.to_string mp) + in + Feedback.msg_debug (Pp.str msg)); translate_mod prefix mp env mdtyp.mod_type acc let dump_library mp dp env mod_expr = |