diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Makefile | 2 | ||||
| -rw-r--r-- | src/lem_interp/run_interp.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Makefile b/src/Makefile index 22f3beb2..a8aeb1a4 100644 --- a/src/Makefile +++ b/src/Makefile @@ -1,6 +1,6 @@ .PHONY: all sail test clean doc lib power test_power test_idempotence -all: sail test lib power doc +all: sail lib power doc test sail: ocamlbuild sail.native 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 |