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

Diff of /sml/trunk/src/compiler/FLINT/clos/closure.sml

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

revision 1334, Thu May 22 22:46:30 2003 UTC revision 1335, Tue May 27 21:54:23 2003 UTC
# Line 1021  Line 1021 
1021               | SOME v => (enter(v,t),b))               | SOME v => (enter(v,t),b))
1022    
1023        (* process the rest groups in free *)        (* process the rest groups in free *)
1024        fun h([],i,r,t,b) = m(r,t,b)        fun h([],i:int,r,t,b) = m(r,t,b)
1025          | h((v,_,j)::z,i,r,t,b) =          | h((v,_,j)::z,i,r,t,b) =
1026              if j = i then h(z,i,enter(v,r),t,b)              if j = i then h(z,i,enter(v,r),t,b)
1027              else let val (nt,nb) = m(r,t,b)              else let val (nt,nb) = m(r,t,b)

Legend:
Removed from v.1334  
changed lines
  Added in v.1335

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