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/interact/interact.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/interact/interact.sml

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

revision 94, Tue May 12 21:56:22 1998 UTC revision 95, Wed May 13 00:49:12 1998 UTC
# Line 55  Line 55 
55            EvalLoop.evalStream params (name, stream)            EvalLoop.evalStream params (name, stream)
56        end        end
57    
58    fun evalStream (stream: TextIO.instream, baseEnv: SCEnv.Env.environment) :    fun evalStream (stream: TextIO.instream, baseEnv: CMEnv.Env.environment) :
59        SCEnv.Env.environment =        CMEnv.Env.environment =
60        let val r = ref Environment.emptyEnv        let val r = ref Environment.emptyEnv
61            val localEnvRef = {get=(fn()=> !r),set=(fn x=>r:=x)}            val localEnvRef = {get=(fn()=> !r),set=(fn x=>r:=x)}
62            val b = ref baseEnv            val b = ref baseEnv
# Line 73  Line 73 
73                isolate= #isolate EvalLoop.stdParams,                isolate= #isolate EvalLoop.stdParams,
74                printer= #printer EvalLoop.stdParams})                printer= #printer EvalLoop.stdParams})
75              ("<instream>", stream);              ("<instream>", stream);
76            SCEnv.SC (#get localEnvRef ())            CMEnv.CM (#get localEnvRef ())
77        end        end
78    
79    (* These mUse functions should really be part of the Open Compiler *)    (* These mUse functions should really be part of the Open Compiler *)
# Line 90  Line 90 
90        in repeat test 0 end        in repeat test 0 end
91    
92  end (* functor Interact *)  end (* functor Interact *)
93    
94    (*
95     * $Log: interact.sml,v $
96     * Revision 1.1.1.1  1998/04/08 18:39:16  george
97     * Version 110.5
98     *
99     *)

Legend:
Removed from v.94  
changed lines
  Added in v.95

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