diff options
| author | Gabriel Kerneis | 2014-06-10 14:25:55 +0100 |
|---|---|---|
| committer | Gabriel Kerneis | 2014-06-10 14:25:55 +0100 |
| commit | ecc003fd2aace0044e04305acd795441166c19e9 (patch) | |
| tree | e0ea6337cbf20d0850c44d1e523bfb787208c9a1 /src/lem_interp | |
| parent | 7169adda1c70d8c240681869a8faedb31373d1ee (diff) | |
Minor color and build tweaks
Diffstat (limited to 'src/lem_interp')
| -rw-r--r-- | src/lem_interp/run_interp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lem_interp/run_interp.ml b/src/lem_interp/run_interp.ml index 800be9a5..b199c09b 100644 --- a/src/lem_interp/run_interp.ml +++ b/src/lem_interp/run_interp.ml @@ -322,7 +322,7 @@ let run in let rec loop mode env = function | Value (v, _) -> - debugf "%s: return %s\n" name (val_to_string v); + debugf "%s: %s %s\n" (grey name) (blue "return") (val_to_string v); true, mode, env | Action (a, s) -> let top_exp = top_frame_exp s in @@ -370,7 +370,7 @@ let run | Error(l, e) -> debugf "%s: %s: %s\n" (grey (loc_to_string l)) (red "error") e; false, mode, env in - debugf "%s: evaluate %s\n" (grey name) (Pretty_interp.pp_exp entry); + debugf "%s: %s %s\n" (grey name) (blue "evaluate") (Pretty_interp.pp_exp entry); let mode = match mode with | None -> if eager_eval then Run else Step | Some m -> m in |