# HG changeset patch # User wenzelm # Date 750339006 -3600 # Node ID 0af9dbb93529853b146cd6e3349204ca39ddf46c # Parent f0f4978af1835ef449d1badd1e9f3267ee8d8182 *** empty log message *** diff -r f0f4978af183 -r 0af9dbb93529 src/Pure/Syntax/ROOT.ML --- 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; diff -r f0f4978af183 -r 0af9dbb93529 src/Pure/Syntax/printer.ML --- 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; diff -r f0f4978af183 -r 0af9dbb93529 src/Pure/Syntax/syntax.ML --- 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;