Commit 29051ec3 authored by MARCHE Claude's avatar MARCHE Claude
Browse files

IDE: suppressed compilation warning

parent 3cffb857
...@@ -2070,7 +2070,7 @@ let reload () = ...@@ -2070,7 +2070,7 @@ let reload () =
| e -> | e ->
begin begin
match e with match e with
| Loc.Located(loc,e) -> | Loc.Located(loc,_) ->
scroll_to_loc ~color:error_tag ~yalign:0.5 loc; scroll_to_loc ~color:error_tag ~yalign:0.5 loc;
notebook#goto_page source_page (* go to "source" tab *) notebook#goto_page source_page (* go to "source" tab *)
| _ -> () | _ -> ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment