# HG changeset patch
# User wenzelm
# Date 1254392135 -7200
# Node ID 0059238fe4bcfd3f3596406c77c4782450f621f7
# Parent  c4f03b0cb75327a8fcbceffc8dbb5775190acd27
tuned;

diff -r c4f03b0cb753 -r 0059238fe4bc src/HOL/Tools/record.ML
--- a/src/HOL/Tools/record.ML	Thu Oct 01 11:33:32 2009 +0200
+++ b/src/HOL/Tools/record.ML	Thu Oct 01 12:15:35 2009 +0200
@@ -1052,7 +1052,6 @@
   then noopt ()
   else opt ();
 
-(* FIXME non-standard name for partial identity; rename to check_... (??) *)
 fun is_sel_upd_pair thy (Const (s, _)) (Const (u, t')) =
   (case get_updates thy u of
     SOME u_name => u_name = s