SCM Repository
Annotation of /sml/trunk/src/compiler/TopLevel/environ/envcvt.sml
Parent Directory
| 
Revision Log
Revision 21 - (view) (download)
| 1 : | monnier | 21 | (* envcvt.sml |
| 2 : | * | ||
| 3 : | * COPYRIGHT (c) 1996 Bell Laboratories. | ||
| 4 : | * | ||
| 5 : | *) | ||
| 6 : | |||
| 7 : | signature COERCE_ENV = | ||
| 8 : | sig val e2b : SCEnv.Env.environment -> Environment.environment | ||
| 9 : | val es2bs : SCEnv.Env.staticEnv -> Environment.staticEnv | ||
| 10 : | val b2e : Environment.environment -> SCEnv.Env.environment | ||
| 11 : | val bs2es : Environment.staticEnv -> SCEnv.Env.staticEnv | ||
| 12 : | val debugging : bool ref | ||
| 13 : | end | ||
| 14 : | |||
| 15 : | structure CoerceEnv : COERCE_ENV = | ||
| 16 : | struct | ||
| 17 : | val b2e = SCEnv.SC | ||
| 18 : | val bs2es = SCStaticEnv.SC | ||
| 19 : | val e2b = SCEnv.unSC | ||
| 20 : | val es2bs = SCStaticEnv.unSC | ||
| 21 : | val debugging = SCStaticEnv.debugging | ||
| 22 : | end | ||
| 23 : | |||
| 24 : | (* | ||
| 25 : | * $Log: envcvt.sml,v $ | ||
| 26 : | * Revision 1.1.1.1 1997/01/14 01:38:36 george | ||
| 27 : | * Version 109.24 | ||
| 28 : | * | ||
| 29 : | *) |
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
