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

Diff of /sml/trunk/src/cm/util/symbolset.sml

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

revision 267, Sat May 8 13:53:45 1999 UTC revision 269, Mon May 10 13:34:43 1999 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 = BinarySetFn (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.267  
changed lines
  Added in v.269

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