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

Diff of /sml/trunk/src/cm/depend/checksharing.sml

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

revision 353, Thu Jun 24 09:43:28 1999 UTC revision 354, Fri Jun 25 08:36:12 1999 UTC
# Line 69  Line 69 
69                | NONE => let                | NONE => let
70                      val gs = foldl fsbn empty globalimports                      val gs = foldl fsbn empty globalimports
71                      val ls = foldl sn gs localimports                      val ls = foldl sn gs localimports
72                      val s' = check (SmlInfo.share i, SmlInfo.name i, ls,                      val s' = check (SmlInfo.share i, SmlInfo.descr i, ls,
73                                      SmlInfo.error gp i)                                      SmlInfo.error gp i)
74                  in                  in
75                      smlmap := SmlInfoMap.insert (!smlmap, i, s');                      smlmap := SmlInfoMap.insert (!smlmap, i, s');

Legend:
Removed from v.353  
changed lines
  Added in v.354

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