Reverse sense of ordering in argument type string to reflect reality.

Fixes

(set-hash-table/rehash-size! (make-hash-table) -1.2)
;The object -1.2, passed as an argument to set-hash-table/rehash-size!, is not a real number < 1 or exact integer >= 1.

diff --git a/src/runtime/hashtb.scm b/src/runtime/hashtb.scm
index faaccf93fbcb6a3c4ad8ee53b9f5ff6b6df6b799..da3eda0a5f074e94a1ad4c9f97651a82d05e2dbf 100644 (file)
--- a/src/runtime/hashtb.scm
+++ b/src/runtime/hashtb.scm
@@ -218,7 +218,7 @@ USA.
                      (cond ((exact-integer? x) (< 0 x))
                            ((real? x) (< 1 x))
                            (else #f)))
-                   "real number < 1 or exact integer >= 1"
+                   "real number > 1 or exact integer >= 1"
                    'SET-HASH-TABLE/REHASH-SIZE!)))
     (with-table-locked! table
       (lambda ()