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/smlnj-lib/Util/hash-string.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Util/hash-string.sml

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

revision 1732, Thu Dec 16 05:07:47 2004 UTC revision 1733, Thu Dec 16 05:37:04 2004 UTC
# Line 36  Line 36 
36              end              end
37      in      in
38      fun hashString s = hash (s, 0, size s)      fun hashString s = hash (s, 0, size s)
39      fun hashString' ss = let      fun hashSubstring ss = let
40            val (s, i0, len) = Substring.base ss            val (s, i0, len) = Substring.base ss
41            in            in
42              hash (s, i0, i0 + len)              hash (s, i0, i0 + len)

Legend:
Removed from v.1732  
changed lines
  Added in v.1733

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