From 870075f34dd9fa5792bfbf413afd3b96f17e76a0 Mon Sep 17 00:00:00 2001 From: Stephane Glondu Date: Fri, 8 Aug 2008 13:18:42 +0200 Subject: Imported Upstream version 8.2~beta4+dfsg --- kernel/names.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'kernel/names.ml') diff --git a/kernel/names.ml b/kernel/names.ml index 26bcc2eb..25f03495 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: names.ml 10919 2008-05-11 22:04:26Z msozeau $ *) +(* $Id: names.ml 11238 2008-07-19 09:34:03Z herbelin $ *) open Pp open Util @@ -101,7 +101,7 @@ let label_of_mbid (_,s,_) = s let mk_label l = l -let string_of_label l = l +let string_of_label = string_of_id let id_of_label l = l let label_of_id id = id -- cgit v1.2.3