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 1335, Tue May 27 21:54:23 2003 UTC revision 1755, Thu Feb 10 23:54:06 2005 UTC
# Line 2033  Line 2033 
2033             val ne = close(e,augValue(w,t,env),sn,csg,csf,ret)             val ne = close(e,augValue(w,t,env),sn,csg,csf,ret)
2034          in header(PURE(i,args,w,t,ne))          in header(PURE(i,args,w,t,ne))
2035         end         end
2036      | RCC(k,l,p,args,w,t,e) =>      | RCC(k,l,p,args,wtl,e) =>
2037         let val (env,header) = fixAccess(args,env)         let val (env,header) = fixAccess(args,env)
2038             val ne = close(e,augValue(w,t,env),sn,csg,csf,ret)             val ne = close(e,foldl (fn((w, t), env) =>
2039          in header(RCC(k,l,p,args,w,t,ne))                                       augValue(w,t,env)) env wtl,
2040                              sn,csg,csf,ret)
2041            in header(RCC(k,l,p,args,wtl,ne))
2042         end         end
2043    
2044  (***************************************************************************  (***************************************************************************

Legend:
Removed from v.1335  
changed lines
  Added in v.1755

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