extern_early: improved handling of undeclared constants;
authorwenzelm
Fri, 05 May 2006 21:59:44 +0200
changeset 19576 179ad0076f75
parent 19575 2d9940cd52d3
child 19577 fdb3642feb49
extern_early: improved handling of undeclared constants;
src/Pure/consts.ML
--- a/src/Pure/consts.ML	Fri May 05 21:59:43 2006 +0200
+++ b/src/Pure/consts.ML	Fri May 05 21:59:44 2006 +0200
@@ -113,8 +113,8 @@
 
 fun extern_early consts c =
   (case try (the_const consts) c of
-    SOME (_, true) => extern consts c
-  | _ => Syntax.constN ^ c);
+    SOME (_, false) => Syntax.constN ^ c
+  | _ => extern consts c);
 
 
 (* read_const *)