diff options
Diffstat (limited to 'parsing/search.ml')
-rw-r--r-- | parsing/search.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/search.ml b/parsing/search.ml index a96567bf4..1d5619969 100644 --- a/parsing/search.ml +++ b/parsing/search.ml @@ -80,7 +80,7 @@ let crible (fn : global_reference -> env -> constr -> unit) ref = Library.iter_all_segments false crible_rec with Not_found -> errorlabstrm "search" - [< pr_global ref; 'sPC; 'sTR "not declared" >] + (pr_global ref ++ spc () ++ str "not declared") (* Fine Search. By Yves Bertot. *) @@ -101,7 +101,7 @@ let xor a b = (a or b) & (not (a & b)) let plain_display ref a c = let pc = prterm_env a c in let pr = pr_global ref in - mSG [< hOV 2 [< pr; 'sTR":"; 'sPC; pc >]; 'fNL>] + msg (hov 2 (pr ++ str":" ++ spc () ++ pc) ++ fnl ()) let filter_by_module (module_list:dir_path list) (accept:bool) (ref:global_reference) (env:env) _ = |