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

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/semant/primitive.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/semant/primitive.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 354, Fri Jun 25 08:36:12 1999 UTC revision 355, Sat Jun 26 13:17:30 1999 UTC
# Line 97  Line 97 
97    
98      fun configuration l = let      fun configuration l = let
99          fun gen_pinfo ({ name, env, pidInfo }, i) = let          fun gen_pinfo ({ name, env, pidInfo }, i) = let
100              val (da_env, mkExports) = Statenv2DAEnv.cvt (E.staticPart env)              val es2bs = GenericVC.CoerceEnv.es2bs
101                val (da_env, mkExports) =
102                    Statenv2DAEnv.cvt (es2bs (E.staticPart env))
103          in          in
104              { name = name, exports = mkExports (), da_env = da_env,              { name = name, exports = mkExports (), da_env = da_env,
105                env = env, pidInfo = pidInfo,                env = env, pidInfo = pidInfo,

Legend:
Removed from v.354  
changed lines
  Added in v.355

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0