diff options
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 |