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/MiscUtil/profile/prof-env.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/MiscUtil/profile/prof-env.sml

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

revision 586, Thu Mar 30 05:08:07 2000 UTC revision 587, Thu Mar 30 09:01:52 2000 UTC
# Line 8  Line 8 
8    sig    sig
9      val prof: TellEnv.env -> string      val prof: TellEnv.env -> string
10      val replace: {      val replace: {
11              get: unit -> CMEnv.Env.environment,              get: unit -> Environment.environment,
12              set: CMEnv.Env.environment -> unit              set: Environment.environment -> unit
13            } -> unit            } -> unit
14    end    end
15    
# Line 78  Line 78 
78    
79    fun replace {get,set} =    fun replace {get,set} =
80     let val e0 = get ()     let val e0 = get ()
81         val s = prof (CMEnv.Env.staticPart e0)         val s = prof (Environment.staticPart e0)
82         val e1 = Interact.evalStream(TextIO.openString s, e0)         val e1 = Interact.evalStream(TextIO.openString s, e0)
83      in set (CMEnv.Env.concatEnv(e1,e0))      in set (Environment.concatEnv(e1,e0))
84     end     end
85    
86    

Legend:
Removed from v.586  
changed lines
  Added in v.587

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