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/cm/stable/stabilize.sml
ViewVC logotype

Diff of /sml/trunk/cm/stable/stabilize.sml

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

revision 3265, Tue Jan 13 17:42:58 2009 UTC revision 3266, Tue Jan 13 20:04:31 2009 UTC
# Line 366  Line 366 
366                              case SymbolMap.find (exports, sy) of                              case SymbolMap.find (exports, sy) of
367                                  SOME (nth, _, _) =>                                  SOME (nth, _, _) =>
368                                    (case nth () of                                    (case nth () of
369                                         (_, DG.SB_BNODE (_, x, _)) =>                                         (_, DG.SB_BNODE (DG.BNODE bn, x, _)) =>
370                                         StabModmap.addEnv (#statenv x ())                                           (StabModmap.addEnv (#statenv x ()),
371                                              fn () => BinInfo.describe
372                                                           (#bininfo bn))
373                                       | _ => raise Format)                                       | _ => raise Format)
374                                | NONE => raise Format                                | NONE => raise Format
375                          end                          end

Legend:
Removed from v.3265  
changed lines
  Added in v.3266

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