Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/staging/src/compiler/ast/var.sml
ViewVC logotype

Diff of /branches/staging/src/compiler/ast/var.sml

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

revision 110, Wed Jun 23 19:28:48 2010 UTC revision 136, Wed Jul 7 20:38:52 2010 UTC
# Line 27  Line 27 
27              V{name=Atom.toString name, id=id, kind=kind, ty=scheme}              V{name=Atom.toString name, id=id, kind=kind, ty=scheme}
28            end            end
29    
30        fun compare (V{id=a, ...}, V{id=b, ...}) = Stamp.compare(a, b)
31        fun same (V{id=a, ...}, V{id=b, ...}) = Stamp.same(a, b)
32        fun hash (V{id, ...}) = Stamp.hash id
33    
34        local
35          structure V =
36            struct
37              type ord_key = var
38              val compare = compare
39            end
40        in
41        structure Map = RedBlackMapFn (V)
42        structure Set = RedBlackSetFn (V)
43        end
44    
45    end    end

Legend:
Removed from v.110  
changed lines
  Added in v.136

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