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

Diff of /sml/trunk/src/cm/compile/generic.sml

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

revision 295, Wed May 26 09:20:25 1999 UTC revision 298, Thu May 27 09:42:28 1999 UTC
# Line 73  Line 73 
73                          loc ge li                          loc ge li
74                      end                      end
75                  in                  in
76                      case CT.lookstable (bininfo, mkenv) of                      CT.dostable (bininfo, mkenv, gp)
                         CT.FOUND e => SOME e  
                       | CT.NOTFOUND (SOME le) => CT.dostable (bininfo, le, gp)  
                       | CT.NOTFOUND NONE => NONE  
77                  end                  end
78          in          in
79              bn              bn
# Line 107  Line 104 
104          in          in
105              case le of              case le of
106                  NONE => NONE                  NONE => NONE
107                | SOME le =>                | SOME le => CT.dosml (smlinfo, le, gp)
                     (case CT.looksml (smlinfo, le) of  
                          SOME e => SOME e  
                        | NONE => CT.dosml (smlinfo, le, gp))  
108          end          end
109    
110          and sbnode gp (DG.SB_BNODE b) = bnode gp b          and sbnode gp (DG.SB_BNODE b) = bnode gp b

Legend:
Removed from v.295  
changed lines
  Added in v.298

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