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/compiler/TopLevel/environ/envref.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/environ/envref.sml

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

revision 591, Mon Apr 3 01:19:20 2000 UTC revision 592, Mon Apr 3 07:04:12 2000 UTC
# Line 9  Line 9 
9    type senvref = {get: unit -> staticEnv, set: staticEnv -> unit}    type senvref = {get: unit -> staticEnv, set: staticEnv -> unit}
10    type envref = {get: unit -> environment, set: environment -> unit}    type envref = {get: unit -> environment, set: environment -> unit}
11    
   val core: senvref  
12    val topLevel : envref                 (* interactive top level env *)    val topLevel : envref                 (* interactive top level env *)
13    val pervasive : envref                (* pervasive environment *)    val pervasive : envref                (* pervasive environment *)
14    val combined : unit -> environment    val combined : unit -> environment
# Line 27  Line 26 
26       in {get=(fn()=> !r),set=(fn x=> r:=x)}       in {get=(fn()=> !r),set=(fn x=> r:=x)}
27      end      end
28    
   val core = mkEnvRef StaticEnv.empty  
29    val topLevel = mkEnvRef Environment.emptyEnv    val topLevel = mkEnvRef Environment.emptyEnv
30    val pervasive = mkEnvRef Environment.emptyEnv    val pervasive = mkEnvRef Environment.emptyEnv
31    

Legend:
Removed from v.591  
changed lines
  Added in v.592

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