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/main/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 460, Wed Nov 3 02:23:44 1999 UTC revision 461, Thu Nov 4 08:06:56 1999 UTC
# Line 413  Line 413 
413                            val d = case Link.sysval (SOME statpid) of                            val d = case Link.sysval (SOME statpid) of
414                                SOME d => d                                SOME d => d
415                              | NONE => emptydyn                              | NONE => emptydyn
416                            val env = E.mkenv { static = statenv (),                            val { env = static, ctxt } = statenv ()
417                              val env = E.mkenv { static = static,
418                                                symbolic = symenv (),                                                symbolic = symenv (),
419                                                dynamic = d }                                                dynamic = d }
420                            val pidInfo = { statpid = statpid, sympid = sympid }                            val pidInfo =
421                                  { statpid = statpid, sympid = sympid,
422                                    ctxt = ctxt }
423                        in                        in
424                            (env, pidInfo)                            (env, pidInfo)
425                        end                        end

Legend:
Removed from v.460  
changed lines
  Added in v.461

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