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/elabmod.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/elaborate/elabmod.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 98  Line 98 
98  fun localEntDec(d1, d2) = seqEntDec [d1, d2]  fun localEntDec(d1, d2) = seqEntDec [d1, d2]
99    
100  (* special symbols *)  (* special symbols *)
101  val paramId = S.strSymbol "<param>"  open SpecialSymbols
 val functorId = S.fctSymbol "<functor>"  
 val hiddenId = S.strSymbol "<hidden>"  
 val tempStrId = S.strSymbol "<tempStr>"  
 val tempFctId = S.fctSymbol "<tempFct>"  
 val fctbodyId = S.strSymbol "<fctbody>"  
 val anonfsigId = S.fsigSymbol "<anonfsig>"  
 val resultId = S.strSymbol "<resultStr>"  
 val returnId = S.strSymbol "<returnStr>"  
102    
103  fun stripMarkSigb(MarkSigb(sigb',region'),region) =  fun stripMarkSigb(MarkSigb(sigb',region'),region) =
104        stripMarkSigb(sigb',region')        stripMarkSigb(sigb',region')

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