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

Parent Directory | Revision Log | 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)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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