Diff of /sml/trunk/src/cm/smlfile/skel-exports.sml

Parent Directory | Revision Log | Patch

	revision 275, Sat May 15 09:54:52 1999 UTC	revision 286, Fri May 21 07:47:16 1999 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.275   changed lines   Added in v.286

---

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