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 456, Wed Oct 27 15:09:58 1999 UTC revision 587, Thu Mar 30 09:01:52 2000 UTC
# Line 19  Line 19 
19    
20      structure Indegree :> INDEGREE = struct      structure Indegree :> INDEGREE = struct
21    
22          fun indegrees (GG.GROUP { exports, ... }) = let          fun indegrees GG.ERRORGROUP = M.empty
23              | indegrees (GG.GROUP { exports, ... }) = let
24              fun fsb sn ((_, DG.SB_SNODE n), m) = sn (n, m)              fun fsb sn ((_, DG.SB_SNODE n), m) = sn (n, m)
25                | fsb _ (_, m) = m                | fsb _ (_, m) = m
26    

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

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