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/branches/SMLNJ/src/cm/util/symbolordkey.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cm/util/symbolordkey.sml

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

revision 629, Wed Apr 26 04:06:41 2000 UTC revision 630, Wed Apr 26 18:40:56 2000 UTC
# Line 1  Line 1 
1  (*  (*
2   * Argument for BinarySetFn and BinaryMapFn for the case of symbols.   * Argument for SetFn and MapFn for the case of symbols.
3   *   *
4   * (C) 1999 Lucent Technologies, Bell Laboratories   * (C) 1999 Lucent Technologies, Bell Laboratories
5   *   *
6   * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)   * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
7   *)   *)
8  structure SymbolOrdKey = struct  structure SymbolOrdKey = struct
9      type ord_key = GenericVC.Symbol.symbol      type ord_key = Symbol.symbol
10      fun compare (s1, s2) =      fun compare (s1, s2) =
11          if GenericVC.Symbol.symbolCMLt (s1, s2) then LESS          if Symbol.symbolCMLt (s1, s2) then LESS
12          else if GenericVC.Symbol.eq (s1, s2) then EQUAL          else if Symbol.eq (s1, s2) then EQUAL
13          else GREATER          else GREATER
14  end  end

Legend:
Removed from v.629  
changed lines
  Added in v.630

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