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/src/compiler/Elaborator/elaborate/elabutil.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Elaborator/elaborate/elabutil.sml

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

revision 1645, Mon Oct 11 21:37:17 2004 UTC revision 1646, Mon Oct 11 22:57:55 2004 UTC
# Line 319  Line 319 
319    
320  fun cMARKexp (e, r) = if !ElabControl.markabsyn then MARKexp (e, r) else e  fun cMARKexp (e, r) = if !ElabControl.markabsyn then MARKexp (e, r) else e
321    
322  fun FUNdec (completeMatch, fbl, region,  fun FUNdec (completeMatch, fbl,
323              compInfo as {mkLvar=mkv,errorMatch,...}: compInfo) =              compInfo as {mkLvar=mkv,errorMatch,...}: compInfo) =
324      let fun fb2rvb ({var, clauses as ({pats,resultty,exp}::_),tyvars,region}) =      let fun fb2rvb ({var, clauses as ({pats,resultty,exp}::_),tyvars,region}) =
325              let fun getvar _ =  newVALvar(argVarSym, mkv)              let fun getvar _ =  newVALvar(argVarSym, mkv)

Legend:
Removed from v.1645  
changed lines
  Added in v.1646

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