diff options
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/discharge.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 23528e3f4..4dc7dd275 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -218,7 +218,7 @@ let process_object oldenv dir sec_sp if clinfo.cL_STRE = (DischargeAt sec_sp) then (ops,ids_to_discard,work_alist) else - let (y1,y2) = process_class sec_sp x in + let (y1,y2) = process_class sec_sp ids_to_discard x in ((Class (y1,y2))::ops, ids_to_discard, work_alist) | "COERCION" -> |