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/branches/FLINT/src/compiler/Semant/statenv/scstatenv.sml
ViewVC logotype

Diff of /sml/branches/FLINT/src/compiler/Semant/statenv/scstatenv.sml

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

revision 68, Fri Apr 3 00:06:42 1998 UTC revision 69, Fri Apr 3 00:06:55 1998 UTC
# Line 228  Line 228 
228    
229          fun SC env0 = (env0, [env env0 emptyModmap])          fun SC env0 = (env0, [env env0 emptyModmap])
230    
231          val SC = Stats.doPhase (Stats.makePhase "Compiler 038 SCStatenv") SC          val SC = Stats.doPhase (Stats.makePhase "Compiler 038 scstatenv") SC
232    
233          fun consolidate (e, _) = SC (SE.consolidate e)          fun consolidate (e, _) = SC (SE.consolidate e)
234      end (* local *)      end (* local *)

Legend:
Removed from v.68  
changed lines
  Added in v.69

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