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 297, Thu May 27 08:29:19 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                      case CT.lookstable (bininfo, mkenv, gp) of
77                          CT.FOUND e => SOME e                          CT.FOUND e => SOME e
78                        | CT.NOTFOUND (SOME le) => CT.dostable (bininfo, le, gp)                        | CT.NOTFOUND (SOME le) => CT.dostable (bininfo, le, gp)
79                        | CT.NOTFOUND NONE => NONE                        | CT.NOTFOUND NONE => NONE
# Line 108  Line 108 
108              case le of              case le of
109                  NONE => NONE                  NONE => NONE
110                | SOME le =>                | SOME le =>
111                      (case CT.looksml (smlinfo, le) of                      (case CT.looksml (smlinfo, le, gp) of
112                           SOME e => SOME e                           SOME e => SOME e
113                         | NONE => CT.dosml (smlinfo, le, gp))                         | NONE => CT.dosml (smlinfo, le, gp))
114          end          end

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

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