From c789e243ff599db876e94a5ab2a13ff98baa0d6c Mon Sep 17 00:00:00 2001 From: letouzey Date: Fri, 24 Sep 2010 13:14:17 +0000 Subject: Some dead code removal, thanks to Oug analyzer In particular, the unused lib/tlm.ml and lib/gset.ml are removed In addition, to simplify code, Libobject.record_object returning only the ('a->obj) function, which is enough almost all the time. Use Libobject.record_object_full if you really need also the (obj->'a). git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13460 85f007b7-540e-0410-9357-904b9bb8a0f7 --- interp/reserve.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'interp/reserve.ml') diff --git a/interp/reserve.ml b/interp/reserve.ml index ec58e47fa..3bcd6b1e7 100644 --- a/interp/reserve.ml +++ b/interp/reserve.ml @@ -21,7 +21,7 @@ let reserve_table = ref Idmap.empty let cache_reserved_type (_,(id,t)) = reserve_table := Idmap.add id t !reserve_table -let (in_reserved, _) = +let in_reserved = declare_object {(default_object "RESERVED-TYPE") with cache_function = cache_reserved_type } -- cgit v1.2.3