SCM Repository
Diff of /sml/trunk/src/cm/compile/recomp.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 369, Sun Jul 4 12:55:20 1999 UTC | revision 370, Mon Jul 5 08:59:13 1999 UTC | |
|---|---|---|
| # | Line 18 | Line 18 |
| 18 | structure PP = PrettyPrint | structure PP = PrettyPrint |
| 19 | structure EM = GenericVC.ErrorMsg | structure EM = GenericVC.ErrorMsg |
| 20 | structure DE = GenericVC.DynamicEnv | structure DE = GenericVC.DynamicEnv |
| 21 | structure CMSE = GenericVC.CMStaticEnv | |
| 22 | ||
| 23 | type pid = Pid.persstamp | type pid = Pid.persstamp |
| 24 | type bfc = BF.bfContent | type bfc = BF.bfContent |
| # | Line 293 | Line 294 |
| 294 | end | end |
| 295 | ||
| 296 | fun nestedTraversalReset () = () | fun nestedTraversalReset () = () |
| 297 | ||
| 298 | fun withAccessTrap r { envs, pids } = let | |
| 299 | fun envs' () = let | |
| 300 | val { stat, sym } = envs () | |
| 301 | in | |
| 302 | { stat = CMSE.withAccessTrap (stat, r), sym = sym } | |
| 303 | end | |
| 304 | in | |
| 305 | { envs = envs', pids = pids } | |
| 306 | end | |
| 307 | end | end |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
