src/Pure/Thy/thm_database.ML
changeset 7573 aa87cf5a15f5
parent 7446 f43d3670a3cd
child 7609 1acbed762fc6
     1.1 --- a/src/Pure/Thy/thm_database.ML	Wed Sep 22 20:57:51 1999 +0200
     1.2 +++ b/src/Pure/Thy/thm_database.ML	Wed Sep 22 20:58:23 1999 +0200
     1.3 @@ -64,6 +64,7 @@
     1.4  
     1.5  fun warn_ml name =
     1.6    if is_ml_identifier name then false
     1.7 +  else if name = "" then true
     1.8    else (warning ("Cannot bind theorem(s) " ^ quote name ^ " as ML value"); true);
     1.9  
    1.10  fun ml_store_thm (name, thm) =