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/compiler/FLINT/clos/closure.sml
ViewVC logotype

Diff of /sml/trunk/compiler/FLINT/clos/closure.sml

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

revision 733, Fri Nov 17 05:13:45 2000 UTC revision 773, Mon Jan 8 16:18:37 2001 UTC
# Line 2022  Line 2022 
2022             val ne = close(e,augValue(w,t,env),sn,csg,csf,ret)             val ne = close(e,augValue(w,t,env),sn,csg,csf,ret)
2023          in header(PURE(i,args,w,t,ne))          in header(PURE(i,args,w,t,ne))
2024         end         end
2025        | RCC(p,args,w,t,e) =>
2026           let val (env,header) = fixAccess(args,env)
2027               val ne = close(e,augValue(w,t,env),sn,csg,csf,ret)
2028            in header(RCC(p,args,w,t,ne))
2029           end
2030    
2031  (***************************************************************************  (***************************************************************************
2032   * Calling the "close" on the CPS expression with proper initializations   *   * Calling the "close" on the CPS expression with proper initializations   *

Legend:
Removed from v.733  
changed lines
  Added in v.773

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