From a98b2ebb4ad090d3d7eaa9ab3b1d98be0867e990 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Fri, 3 Dec 2010 12:15:32 -0800 Subject: Change 'stratum' to the friendlier term 'layer'. --- src/boot/driver/main.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/boot/driver/main.ml') diff --git a/src/boot/driver/main.ml b/src/boot/driver/main.ml index 82057766..2bbc832b 100644 --- a/src/boot/driver/main.ml +++ b/src/boot/driver/main.ml @@ -38,7 +38,7 @@ let (sess:Session.sess) = Session.sess_log_resolve = false; Session.sess_log_type = false; Session.sess_log_simplify = false; - Session.sess_log_stratum = false; + Session.sess_log_layer = false; Session.sess_log_effect = false; Session.sess_log_typestate = false; Session.sess_log_loop = false; @@ -180,8 +180,8 @@ let argspecs = "-ltype" "log type checking"); (flag (fun _ -> sess.Session.sess_log_simplify <- true) "-lsimplify" "log simplification"); - (flag (fun _ -> sess.Session.sess_log_stratum <- true) - "-lstratum" "log stratum checking"); + (flag (fun _ -> sess.Session.sess_log_layer <- true) + "-llayer" "log layer checking"); (flag (fun _ -> sess.Session.sess_log_effect <- true) "-leffect" "log effect checking"); (flag (fun _ -> sess.Session.sess_log_typestate <- true) @@ -396,7 +396,7 @@ let main_pipeline _ = Simplify.process_crate; Type.process_crate; Typestate.process_crate; - Stratum.process_crate; + Layer.process_crate; Effect.process_crate; Loop.process_crate; Alias.process_crate; -- cgit v1.2.3