Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/TopLevel/environ/envcvt.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/TopLevel/environ/envcvt.sml

Parent Directory Parent Directory | Revision Log 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