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 /pgraph/releases/release-110.60/reconstruct.sml
ViewVC logotype

Diff of /pgraph/releases/release-110.60/reconstruct.sml

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

revision 1010, Wed Jan 9 21:27:48 2002 UTC revision 1011, Thu Jan 10 20:22:04 2002 UTC
# Line 34  Line 34 
34              ((i', d'), v)              ((i', d'), v)
35          end          end
36    
37          fun Sym m (ns, s) =          fun Sgn m s =
38              Bind (P.SYM (ns, s), m)              Bind (P.SYM (P.SGN, s), m)
39            fun Str m s =
40                Bind (P.SYM (P.STR, s), m)
41            fun Fct m s =
42                Bind (P.SYM (P.FCT, s), m)
43          fun Syms m sl =          fun Syms m sl =
44              Bind (P.SYMS sl, m)              Bind (P.SYMS sl, m)
45          fun Imp m (l, ss) =          fun Imp m (l, ss) =
# Line 52  Line 56 
56          fun Exp (i, d) e =          fun Exp (i, d) e =
57              P.GRAPH { imports = imports, defs = rev d, export = e }              P.GRAPH { imports = imports, defs = rev d, export = e }
58      in      in
59          gt { Ops = { Sym = Sym, Exp = Exp, Syms = Syms,          gt { Ops = { Sgn = Sgn, Str = Str, Fct = Fct,
60                         Exp = Exp, Syms = Syms,
61                       Imp = Imp, Com = Com, Fil = Fil, Mer = Mer },                       Imp = Imp, Com = Com, Fil = Fil, Mer = Mer },
62               Misc = (nlibs, []) }               Misc = (nlibs, []) }
63             imports             imports

Legend:
Removed from v.1010  
changed lines
  Added in v.1011

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