--- a/src/Pure/Syntax/ROOT.ML Fri Oct 08 14:29:55 1993 +0100
+++ b/src/Pure/Syntax/ROOT.ML Mon Oct 11 12:30:06 1993 +0100
@@ -13,7 +13,7 @@
use "extension.ML";
use "parse_tree.ML";
use "parser.ML";
-use "earley0A.ML"; (* FIXME *)
+use "earley0A.ML";
use "type_ext.ML";
use "sextension.ML";
use "printer.ML";
@@ -29,7 +29,7 @@
structure Parser = ParserFun(structure Symtab = Symtab and XGram = XGram
and ParseTree = ParseTree);
structure Earley = EarleyFun(structure Symtab = Symtab and XGram = XGram
- and ParseTree = ParseTree); (* FIXME *)
+ and ParseTree = ParseTree);
structure TypeExt = TypeExtFun(structure Extension = Extension
and Lexicon = Lexicon);
structure SExtension = SExtensionFun(structure TypeExt = TypeExt
@@ -38,7 +38,7 @@
and TypeExt = TypeExt and SExtension = SExtension and Pretty = Pretty);
structure Syntax = SyntaxFun(structure Symtab = Symtab and TypeExt = TypeExt
and Parser = Earley and SExtension = SExtension and Printer = Printer);
- (* FIXME ^^^^^^ *)
+
(*BasicSyntax has the most important primitives, which are made pervasive*)
signature BASIC_SYNTAX = sig include SEXTENSION0 include PRINTER0 end;
--- a/src/Pure/Syntax/printer.ML Fri Oct 08 14:29:55 1993 +0100
+++ b/src/Pure/Syntax/printer.ML Mon Oct 11 12:30:06 1993 +0100
@@ -32,7 +32,7 @@
functor PrinterFun(structure Symtab: SYMTAB and Lexicon: LEXICON
and TypeExt: TYPE_EXT and SExtension: SEXTENSION and Pretty: PRETTY
- sharing TypeExt.Extension = SExtension.Extension) (*: PRINTER *) = (* FIXME *)
+ sharing TypeExt.Extension = SExtension.Extension): PRINTER =
struct
structure Symtab = Symtab;
--- a/src/Pure/Syntax/syntax.ML Fri Oct 08 14:29:55 1993 +0100
+++ b/src/Pure/Syntax/syntax.ML Mon Oct 11 12:30:06 1993 +0100
@@ -40,7 +40,7 @@
and Parser: PARSER and SExtension: SEXTENSION and Printer: PRINTER
sharing TypeExt.Extension = SExtension.Extension
and Parser.XGram = TypeExt.Extension.XGram = Printer.XGram
- and Parser.XGram.Ast = Parser.ParseTree.Ast)(*: SYNTAX *) = (* FIXME *)
+ and Parser.XGram.Ast = Parser.ParseTree.Ast): SYNTAX =
struct
structure Extension = TypeExt.Extension;