more permissive operation: allow to print undeclared name space entries, e.g. print_simpset with "record" simproc;
authorwenzelm
Wed, 13 May 2015 17:27:12 +0200
changeset 60282 496fa0fc91b1
parent 60281 6b01377b95b9
child 60283 c927fa99d045
more permissive operation: allow to print undeclared name space entries, e.g. print_simpset with "record" simproc;
src/Pure/General/name_space.ML
--- a/src/Pure/General/name_space.ML	Sat May 09 20:40:28 2015 +0200
+++ b/src/Pure/General/name_space.ML	Wed May 13 17:27:12 2015 +0200
@@ -179,7 +179,8 @@
 
 fun entry_ord space = int_ord o apply2 (#serial o the_entry space);
 
-fun is_concealed space name = #concealed (the_entry space name);
+fun is_concealed space name =
+  #concealed (the_entry space name) handle ERROR _ => false;
 
 
 (* intern *)