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/branches/SMLNJ/src/cm/smlfile/skel-exports.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cm/smlfile/skel-exports.sml

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

revision 629, Wed Apr 26 04:06:41 2000 UTC revision 630, Wed Apr 26 18:40:56 2000 UTC
# Line 15  Line 15 
15      structure SS = SymbolSet      structure SS = SymbolSet
16    
17      fun exports d = let      fun exports d = let
18          fun e (SK.StrDecl l, a) = SS.addList (a, map #name l)          fun e (SK.Bind (s, _), a) = SS.add (a, s)
19            | e (SK.FctDecl l, a) = SS.addList (a, map #name l)            | e (SK.Local (l, b), a) = e (b, a)
20            | e (SK.LocalDecl (l, b), a) = e (b, a)            | e (SK.Par l, a) = foldl e a l
21            | e (SK.SeqDecl l, a) = foldl e a l            | e (SK.Seq l, a) = foldl e a l
22            | e (SK.OpenDecl _, a) = a    (* cannot happen *)            | e (SK.Open _, a) = a        (* cannot happen *)
23            | e (SK.DeclRef _, a) = a            | e (SK.Ref _, a) = a
24      in      in
25          e (d, SS.empty)          e (d, SS.empty)
26      end      end

Legend:
Removed from v.629  
changed lines
  Added in v.630

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