diff options
Diffstat (limited to 'library/heads.ml')
-rw-r--r-- | library/heads.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/heads.ml b/library/heads.ml index ca1f1014f..1b1dba43f 100644 --- a/library/heads.ml +++ b/library/heads.ml @@ -158,7 +158,7 @@ let discharge_head (_,(ref,k)) = | EvalConstRef cst -> Some (EvalConstRef (pop_con cst), k) | EvalVarRef id -> None -let rebuild_head (info,(ref,k)) = +let rebuild_head (ref,k) = (ref, compute_head ref) let export_head o = Some o |