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

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

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

revision 454, Wed Oct 27 04:41:14 1999 UTC revision 456, Wed Oct 27 15:09:58 1999 UTC
# Line 41  Line 41 
41              end              end
42    
43              fun impexp ((n, _), m) = fsb snode (n, m)              fun impexp ((n, _), m) = fsb snode (n, m)
             val m = SymbolMap.foldl impexp M.empty exports  
             fun show (i, u) =  
                 Say.dsay [SmlInfo.descr i, ": ", Int.toString u, "\n"]  
44          in          in
45              M.appi show m;              SymbolMap.foldl impexp M.empty exports
             m  
46          end          end
47      end      end
48  end  end

Legend:
Removed from v.454  
changed lines
  Added in v.456

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