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

Diff of /sml/trunk/src/compiler/Semant/elaborate/elabcore.sml

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

revision 674, Thu Jun 22 06:45:00 2000 UTC revision 675, Fri Jun 23 09:18:18 2000 UTC
# Line 86  Line 86 
86    | stripExpAst(FlatAppExp[{item,region,...}],r) = stripExpAst(item,region)    | stripExpAst(FlatAppExp[{item,region,...}],r) = stripExpAst(item,region)
87    | stripExpAst x = x    | stripExpAst x = x
88    
89  val internalSym = S.varSymbol "<InternalVar>"  val internalSym = SpecialSymbols.internalVarId
90    
91  val dummyFNexp =  val dummyFNexp =
92      FNexp([RULE(WILDpat,RAISEexp(CONexp(V.bogusEXN,[]),UNDEFty))],UNDEFty)      FNexp([RULE(WILDpat,RAISEexp(CONexp(V.bogusEXN,[]),UNDEFty))],UNDEFty)

Legend:
Removed from v.674  
changed lines
  Added in v.675

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