SCM Repository
Diff of /sml/trunk/src/cm/parse/parse.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 347, Mon Jun 21 15:08:30 1999 UTC | revision 348, Tue Jun 22 05:43:46 1999 UTC | |
|---|---|---|
| # | Line 18 | Line 18 |
| 18 | structure S = GenericVC.Source | structure S = GenericVC.Source |
| 19 | structure EM = GenericVC.ErrorMsg | structure EM = GenericVC.ErrorMsg |
| 20 | structure SM = GenericVC.SourceMap | structure SM = GenericVC.SourceMap |
| 21 | structure GG = GroupGraph | |
| 22 | ||
| 23 | structure CMLrVals = CMLrValsFun (structure Token = LrParser.Token) | structure CMLrVals = CMLrValsFun (structure Token = LrParser.Token) |
| 24 | structure CMLex = CMLexFun (structure Tokens = CMLrVals.Tokens) | structure CMLex = CMLexFun (structure Tokens = CMLrVals.Tokens) |
| # | Line 92 | Line 93 |
| 93 | (* We stabilize libraries only because a stable library will | (* We stabilize libraries only because a stable library will |
| 94 | * encompass the contents of its sub-groups | * encompass the contents of its sub-groups |
| 95 | * (but not sub-libraries!). *) | * (but not sub-libraries!). *) |
| 96 | fun stabilize (g as GroupGraph.GROUP { islib = false, ... }) = | fun stabilize (g as GG.GROUP { kind = GG.NOLIB, ... }) = SOME g |
| SOME g | ||
| 97 | | stabilize g = | | stabilize g = |
| 98 | Stabilize.stabilize ginfo { group = g, anyerrors = pErrFlag } | Stabilize.stabilize ginfo { group = g, anyerrors = pErrFlag } |
| 99 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
