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/primop-branch-3/compiler/Elaborator/modules/evalent.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/Elaborator/modules/evalent.sml

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

revision 3378, Sat May 23 01:58:40 2009 UTC revision 3379, Sat May 23 14:59:18 2009 UTC
# Line 210  Line 210 
210          | CONSTfct fctEntity => (fctEntity, entEnv)          | CONSTfct fctEntity => (fctEntity, entEnv)
211    
212          | LAMBDA{param, body} =>          | LAMBDA{param, body} =>
213              let val _ = debugmsg "--evalFct[LAMBDA]"              (debugmsg "--evalFct[LAMBDA]";
214               in ({stamp = mkStamp (),               ({stamp = mkStamp (),
215                    exp=fctExp,                    exp=fctExp,
216                    closureEnv=entEnv,                    closureEnv=entEnv,
217                    primaries=,                    primaries=[],
218                    paramEnv=,                    paramEnv=ERReenv, (* [FIXME] primaries and paramEnv must be set *)
219                    rpath=IP.IPATH[anonFctSym],                    rpath=IP.IPATH[anonFctSym],
220                    stub=NONE,                    stub=NONE,
221                    properties = PropList.newHolder ()},                    properties = PropList.newHolder ()},
222                   entEnv)                   entEnv))
             end  
223    
224          | LETfct (entDec, fctExp) =>          | LETfct (entDec, fctExp) =>
225              let val entEnv1 = evalDec(entDec,  epc,              let val entEnv1 = evalDec(entDec,  epc,

Legend:
Removed from v.3378  
changed lines
  Added in v.3379

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