Changeset 37833 in project

Timestamp:

08/04/19 14:39:07 (2 weeks ago)

Author:

sjamaan

Message:

srfi-69: Use ##sys#check-fixnum instead of ##sys#check-exact on bounds

In CHICKEN 4, ##sys#check-exact was what we now call ##sys#check-fixnum
but the SRFI-69 code hasn't been updated to match it.

Fixes #1631

File:

• release/5/srfi-69/trunk/srfi-69.scm (modified) (12 diffs)

release/5/srfi-69/trunk/srfi-69.scm

@@ -207 +207 @@
   (unless (number? obj)
     (##sys#signal-hook #:type 'number-hash "invalid number" obj) )
-  (##sys#check-exact bound 'number-hash)
+  (##sys#check-fixnum bound 'number-hash)
   (%hash/limit (%number-hash obj randomization) bound) )
 
@@ -221 +221 @@
 (define (object-uid-hash obj #!optional (bound hash-default-bound)
                          (randomization hash-default-randomization))
-  (##sys#check-exact bound 'object-uid-hash)
+  (##sys#check-fixnum bound 'object-uid-hash)
   (%hash/limit (%object-uid-hash obj randomization) bound) )
 
@@ -236 +236 @@
                      (randomization hash-default-randomization))
   (##sys#check-symbol obj 'symbol-hash)
-  (##sys#check-exact bound 'symbol-hash)
+  (##sys#check-fixnum bound 'symbol-hash)
   (%hash/limit (%symbol-hash obj randomization) bound) )
 
@@ -257 +257 @@
                       (randomization hash-default-randomization))
   (##sys#check-keyword obj 'keyword-hash)
-  (##sys#check-exact bound 'keyword-hash)
+  (##sys#check-fixnum bound 'keyword-hash)
   (%hash/limit (%keyword-hash obj randomization) bound) )
 
@@ -281 +281 @@
 (define (eq?-hash obj #!optional (bound hash-default-bound)
                   (randomization hash-default-randomization))
-  (##sys#check-exact bound 'eq?-hash)
+  (##sys#check-fixnum bound 'eq?-hash)
   (%hash/limit (*eq?-hash obj randomization) bound) )
 
@@ -307 +307 @@
 (define (eqv?-hash obj #!optional (bound hash-default-bound)
                    (randomization hash-default-randomization))
-  (##sys#check-exact bound 'eqv?-hash)
+  (##sys#check-fixnum bound 'eqv?-hash)
   (%hash/limit (*eqv?-hash obj randomization) bound) )
 
@@ -392 +392 @@
 (define (equal?-hash obj #!optional (bound hash-default-bound)
                      (randomization hash-default-randomization))
-  (##sys#check-exact bound 'hash)
+  (##sys#check-fixnum bound 'hash)
   (%hash/limit (*equal?-hash obj randomization) bound) )
 
@@ -402 +402 @@
                      (randomization hash-default-randomization))
   (##sys#check-string str 'string-hash)
-  (##sys#check-exact bound 'string-hash)
+  (##sys#check-fixnum bound 'string-hash)
   (let ((str (if start
                  (let ((end (or end (##sys#size str))))
@@ -414 +414 @@
                      (randomization hash-default-randomization))
   (##sys#check-string str 'string-ci-hash)
-  (##sys#check-exact bound 'string-ci-hash)
+  (##sys#check-fixnum bound 'string-ci-hash)
   (let ((str (if start
                  (let ((end (or end (##sys#size str))))
@@ -484 +484 @@
           (lambda (object bound)
             (let ((hash (user-function object bound)))
-              (##sys#check-exact hash 'hash user-function)
+              (##sys#check-fixnum hash 'hash)
               (if (and (fx< hash bound) (fx>= hash 0))
                   hash
@@ -567 +567 @@
             (let ([arg (car arguments)])
               (unless (keyword? arg)
-                (##sys#check-exact arg 'make-hash-table)
+                (##sys#check-fixnum arg 'make-hash-table)
                 (unless (fx< 0 arg)
                   (error 'make-hash-table "invalid size" arg) )
@@ -592 +592 @@
                             (set! hash val)]
                           [(#:size)
-                            (##sys#check-exact val 'make-hash-table)
+                            (##sys#check-fixnum val 'make-hash-table)
                             (unless (fx< 0 val)
                               (error 'make-hash-table "invalid size" val) )