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/cm/smlfile/skel-cvt.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/smlfile/skel-cvt.sml

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

revision 1139, Wed Mar 13 18:40:51 2002 UTC revision 1140, Wed Mar 13 18:59:03 2002 UTC
# Line 399  Line 399 
399          local_dl (dec_dl (bdg, []), dec_dl (body, []), d)          local_dl (dec_dl (bdg, []), dec_dl (body, []), d)
400        | dec_dl (SeqDec l, d) = foldr dec_dl d l        | dec_dl (SeqDec l, d) = foldr dec_dl d l
401        | dec_dl (OpenDec l, d) = parcons (map (Open o Var o SP.SPATH) l, d)        | dec_dl (OpenDec l, d) = parcons (map (Open o Var o SP.SPATH) l, d)
402        | dec_dl ((OvldDec _ | FixDec _), d) = d        | dec_dl (OvldDec (_, t, l), d) = dl_addS (ty_s (t, SS.empty),
403                                                     foldl exp_dl d l)
404          | dec_dl (FixDec _, d) = d
405        | dec_dl (MarkDec (arg, _), d) = dec_dl (arg, d)        | dec_dl (MarkDec (arg, _), d) = dec_dl (arg, d)
406    
407      fun c_dec d = seq (dec_dl (d, []))      fun c_dec d = seq (dec_dl (d, []))

Legend:
Removed from v.1139  
changed lines
  Added in v.1140

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