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

Diff of /sml/trunk/src/cm/parse/parse.sml

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

revision 735, Tue Nov 21 12:15:55 2000 UTC revision 737, Fri Nov 24 08:43:56 2000 UTC
# Line 136  Line 136 
136                               NONE => ()                               NONE => ()
137                             | SOME (bnth, _, _) =>                             | SOME (bnth, _, _) =>
138                               (case bnth () of                               (case bnth () of
139                                    (_, DG.SB_BNODE (DG.BNODE bn, _)) =>                                    (_, DG.SB_BNODE (DG.BNODE bn, _, _)) =>
140                                    em := StableMap.insert (!em, #bininfo bn,                                    em := StableMap.insert (!em, #bininfo bn,
141                                                            #smlinfo sn)                                                            #smlinfo sn)
142                                  | _ => ()))                                  | _ => ()))

Legend:
Removed from v.735  
changed lines
  Added in v.737

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