From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 1 Oct 2009 18:23:38 +0000 (-0400)
Subject: Reverse sense of ordering in argument type string to reflect reality.
X-Git-Tag: 20100708-Gtk~295
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67b9932f138d36d2e52ccff07e59f92dbac4977b;p=mit-scheme.git

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 faaccf93f..da3eda0a5 100644
--- 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 ()