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

SCM Repository

[diderot] Annotation of /branches/charisee/src/compiler/ein/var.sml
ViewVC logotype

Annotation of /branches/charisee/src/compiler/ein/var.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2383 - (view) (download)

1 : cchiw 2383 (* var.sml
2 :     *
3 :     * COPYRIGHT (c) 2012 The Diderot Project (http://diderot-language.cs.uchicago.edu)
4 :     * All rights reserved.
5 :     *)
6 :    
7 :     structure Var =
8 :     struct
9 :     type var = string
10 :     val compare = String.compare
11 :     fun same (x : var, y) = (x = y)
12 :     fun name (x : var) = x
13 :    
14 :     structure Map = RedBlackMapFn(
15 :     struct
16 :     type ord_key = var
17 :     val compare = compare
18 :     end)
19 :     end

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