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

minor bug fix

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