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

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

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 652, Tue Jun 6 02:14:56 2000 UTC
# Line 49  Line 49 
49          and farsbnode (_, DG.SB_BNODE (n, _)) = bnode n          and farsbnode (_, DG.SB_BNODE (n, _)) = bnode n
50            | farsbnode (_, DG.SB_SNODE n) = snode n            | farsbnode (_, DG.SB_SNODE n) = snode n
51    
52          fun impexp (n, _) = farsbnode n          fun impexp (nth, _, _) = farsbnode (nth ())
53      in      in
54          do_list impexp (SymbolMap.listItems exports)          do_list impexp (SymbolMap.listItems exports)
55                         (fn _ => Nil)                         (fn _ => Nil)

Legend:
Removed from v.651  
changed lines
  Added in v.652

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