equal
deleted
inserted
replaced
38 |
38 |
39 functor SyntaxFun(structure Symtab: SYMTAB and TypeExt: TYPE_EXT |
39 functor SyntaxFun(structure Symtab: SYMTAB and TypeExt: TYPE_EXT |
40 and Parser: PARSER and SExtension: SEXTENSION and Printer: PRINTER |
40 and Parser: PARSER and SExtension: SEXTENSION and Printer: PRINTER |
41 sharing TypeExt.Extension = SExtension.Extension |
41 sharing TypeExt.Extension = SExtension.Extension |
42 and Parser.XGram = TypeExt.Extension.XGram = Printer.XGram |
42 and Parser.XGram = TypeExt.Extension.XGram = Printer.XGram |
43 and Parser.XGram.Ast = Parser.ParseTree.Ast)(*: SYNTAX *) = (* FIXME *) |
43 and Parser.XGram.Ast = Parser.ParseTree.Ast): SYNTAX = |
44 struct |
44 struct |
45 |
45 |
46 structure Extension = TypeExt.Extension; |
46 structure Extension = TypeExt.Extension; |
47 structure XGram = Extension.XGram; |
47 structure XGram = Extension.XGram; |
48 structure Lexicon = Parser.ParseTree.Lexicon; |
48 structure Lexicon = Parser.ParseTree.Lexicon; |