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/Elaborator/elaborate/elabcore.sml
ViewVC logotype

Diff of /sml/trunk/compiler/Elaborator/elaborate/elabcore.sml

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

revision 2623, Tue May 29 21:53:56 2007 UTC revision 2624, Tue May 29 23:00:44 2007 UTC
# Line 122  Line 122 
122  *)  *)
123    
124  local  local
125      fun mkCoreExp name env = VARexp (ref (CoreAccess.getVar(env, name)), [])      fun mkCoreExp name env = VARexp (ref (CoreAccess.getVar env [name]), [])
126  in  in
127      val mkAssignExp = mkCoreExp "assign"      val mkAssignExp = mkCoreExp "assign"
128      val mkBangExp = mkCoreExp "deref"      val mkBangExp = mkCoreExp "deref"
# Line 192  Line 192 
192    
193              (* capture Match exn from coreEnv as a random exn for use internally              (* capture Match exn from coreEnv as a random exn for use internally
194                 in the Y combinator definition *)                 in the Y combinator definition *)
195              val exn = CoreAccess.getExn (env,"Match")              val exn = CoreAccess.getExn env ["Match"]
196    
197              (* val exn = V.bogusEXN (* see if this will work? *) *)              (* val exn = V.bogusEXN (* see if this will work? *) *)
198    

Legend:
Removed from v.2623  
changed lines
  Added in v.2624

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