Import Upstream version 3a5upstream/3a5

1 files changed, 19 insertions, 18 deletions

diff --git a/hash.scm b/hash.scm
index fbee264..c2d8f5c 100644
--- a/hash.scm
+++ b/hash.scm
@@ -17,24 +17,6 @@
 ;promotional, or sales literature without prior written consent in
 ;each case.
 
-(define (hash:hash-symbol sym n)
-  (hash:hash-string (symbol->string sym) n))
-
-;;; This can overflow on implemenatations where inexacts have a larger
-;;; range than exact integers.
-(define hash:hash-number
-  (if (provided? 'inexact)
-      (lambda (num n)
-	(if (integer? num)
-	    (modulo (if (exact? num) num (inexact->exact num)) n)
-	    (hash:hash-string-ci
-	     (number->string (if (exact? num) (exact->inexact num) num))
-	     n)))
-      (lambda (num n)
-	(if (integer? num)
-	    (modulo num n)
-	    (hash:hash-string-ci (number->string num) n)))))
-
 (define (hash:hash-string-ci str n)
   (let ((len (string-length str)))
     (if (> len 5)
@@ -57,6 +39,25 @@
 	      h)))))
 
 (define hash:hash-string hash:hash-string-ci)
+
+(define (hash:hash-symbol sym n)
+  (hash:hash-string (symbol->string sym) n))
+
+;;; This can overflow on implemenatations where inexacts have a larger
+;;; range than exact integers.
+(define hash:hash-number
+  (if (provided? 'inexact)
+      (lambda (num n)
+	(if (integer? num)
+	    (modulo (if (exact? num) num (inexact->exact num)) n)
+	    (hash:hash-string-ci
+	     (number->string (if (exact? num) (exact->inexact num) num))
+	     n)))
+      (lambda (num n)
+	(if (integer? num)
+	    (modulo num n)
+	    (hash:hash-string-ci (number->string num) n)))))
+
 ;@
 (define (hash obj n)
   (let hs ((d 10) (obj obj))