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

Diff of /sml/branches/SMLNJ/src/cm/util/symbolset.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 6  Line 6 
6   *   *
7   * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)   * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
8   *)   *)
9  structure SymbolSet = BinarySetFn  structure SymbolSet = SetFn (SymbolOrdKey)
     (struct  
         type ord_key = GenericVC.Symbol.symbol  
         fun compare (s1, s2) =  
             if GenericVC.Symbol.symbolCMLt (s1, s2) then LESS  
             else if GenericVC.Symbol.eq (s1, s2) then EQUAL  
             else GREATER  
     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