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

Diff of /sml/trunk/src/compiler/FLINT/opt/fixfix.sml

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

revision 163, Thu Oct 29 21:00:27 1998 UTC revision 164, Sat Oct 31 01:03:30 1998 UTC
# Line 99  Line 99 
99                  end                  end
100          else          else
101              (* this "never" occurs, but dead-code removal is not bullet-proof *)              (* this "never" occurs, but dead-code removal is not bullet-proof *)
102              ([(fk,f,args)], body)              ([], le)
103        | curry first le = ([], le)        | curry first le = ([], le)
104    
105      (* do the actual uncurrying *)      (* do the actual uncurrying *)

Legend:
Removed from v.163  
changed lines
  Added in v.164

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