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/FLINT/trans/pequal.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/trans/pequal.sml

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

revision 93, Tue May 12 21:56:22 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 95  Line 95 
95    
96  fun expandREC (family as {members: T.dtmember vector, ...}, stamps, freetycs) =  fun expandREC (family as {members: T.dtmember vector, ...}, stamps, freetycs) =
97    let fun g (RECtyc i) =    let fun g (RECtyc i) =
98             let val {tycname,dcons,arity,eq,sign} =             let val {tycname,dcons,arity,eq,lazyp,sign} =
99                     Vector.sub(members,i)                     Vector.sub(members,i)
100                 val s = Vector.sub(stamps, i)                 val s = Vector.sub(stamps, i)
101              in GENtyc{stamp=s,arity=arity,eq=ref(YES),              in GENtyc{stamp=s,arity=arity,eq=ref(YES),
# Line 338  Line 338 
338    
339  (*  (*
340   * $Log: pequal.sml,v $   * $Log: pequal.sml,v $
341     * Revision 1.2  1998/05/15 03:14:53  dbm
342     *   Added lazyp flags.
343     *
344   * Revision 1.1.1.1  1998/04/08 18:39:42  george   * Revision 1.1.1.1  1998/04/08 18:39:42  george
345   * Version 110.5   * Version 110.5
346   *   *

Legend:
Removed from v.93  
changed lines
  Added in v.106

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