Commit 5512bd6d authored by MARCHE Claude's avatar MARCHE Claude

minor bug fix

parent edd17b9f
...@@ -527,8 +527,11 @@ let goal_expl_lazy g = ...@@ -527,8 +527,11 @@ let goal_expl_lazy g =
match g.goal_expl with match g.goal_expl with
| Some s -> s | Some s -> s
| None -> | None ->
let _name,expl,_task = Termcode.goal_expl_task ~root:false (goal_task g) in match g.goal_task with
| Some t ->
let _name,expl,_task = Termcode.goal_expl_task ~root:false t in
g.goal_expl <- Some expl; expl g.goal_expl <- Some expl; expl
| None -> ""
let goal_expl_or_name g = let goal_expl_or_name g =
let s = goal_expl_lazy g in let s = goal_expl_lazy g in
......
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