Changeset 37833 in project
- Timestamp:
- 08/04/19 14:39:07 (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/srfi-69/trunk/srfi-69.scm
r37722 r37833 207 207 (unless (number? obj) 208 208 (##sys#signal-hook #:type 'number-hash "invalid number" obj) ) 209 (##sys#check- exactbound 'number-hash)209 (##sys#check-fixnum bound 'number-hash) 210 210 (%hash/limit (%number-hash obj randomization) bound) ) 211 211 … … 221 221 (define (object-uid-hash obj #!optional (bound hash-default-bound) 222 222 (randomization hash-default-randomization)) 223 (##sys#check- exactbound 'object-uid-hash)223 (##sys#check-fixnum bound 'object-uid-hash) 224 224 (%hash/limit (%object-uid-hash obj randomization) bound) ) 225 225 … … 236 236 (randomization hash-default-randomization)) 237 237 (##sys#check-symbol obj 'symbol-hash) 238 (##sys#check- exactbound 'symbol-hash)238 (##sys#check-fixnum bound 'symbol-hash) 239 239 (%hash/limit (%symbol-hash obj randomization) bound) ) 240 240 … … 257 257 (randomization hash-default-randomization)) 258 258 (##sys#check-keyword obj 'keyword-hash) 259 (##sys#check- exactbound 'keyword-hash)259 (##sys#check-fixnum bound 'keyword-hash) 260 260 (%hash/limit (%keyword-hash obj randomization) bound) ) 261 261 … … 281 281 (define (eq?-hash obj #!optional (bound hash-default-bound) 282 282 (randomization hash-default-randomization)) 283 (##sys#check- exactbound 'eq?-hash)283 (##sys#check-fixnum bound 'eq?-hash) 284 284 (%hash/limit (*eq?-hash obj randomization) bound) ) 285 285 … … 307 307 (define (eqv?-hash obj #!optional (bound hash-default-bound) 308 308 (randomization hash-default-randomization)) 309 (##sys#check- exactbound 'eqv?-hash)309 (##sys#check-fixnum bound 'eqv?-hash) 310 310 (%hash/limit (*eqv?-hash obj randomization) bound) ) 311 311 … … 392 392 (define (equal?-hash obj #!optional (bound hash-default-bound) 393 393 (randomization hash-default-randomization)) 394 (##sys#check- exactbound 'hash)394 (##sys#check-fixnum bound 'hash) 395 395 (%hash/limit (*equal?-hash obj randomization) bound) ) 396 396 … … 402 402 (randomization hash-default-randomization)) 403 403 (##sys#check-string str 'string-hash) 404 (##sys#check- exactbound 'string-hash)404 (##sys#check-fixnum bound 'string-hash) 405 405 (let ((str (if start 406 406 (let ((end (or end (##sys#size str)))) … … 414 414 (randomization hash-default-randomization)) 415 415 (##sys#check-string str 'string-ci-hash) 416 (##sys#check- exactbound 'string-ci-hash)416 (##sys#check-fixnum bound 'string-ci-hash) 417 417 (let ((str (if start 418 418 (let ((end (or end (##sys#size str)))) … … 484 484 (lambda (object bound) 485 485 (let ((hash (user-function object bound))) 486 (##sys#check- exact hash 'hash user-function)486 (##sys#check-fixnum hash 'hash) 487 487 (if (and (fx< hash bound) (fx>= hash 0)) 488 488 hash … … 567 567 (let ([arg (car arguments)]) 568 568 (unless (keyword? arg) 569 (##sys#check- exactarg 'make-hash-table)569 (##sys#check-fixnum arg 'make-hash-table) 570 570 (unless (fx< 0 arg) 571 571 (error 'make-hash-table "invalid size" arg) ) … … 592 592 (set! hash val)] 593 593 [(#:size) 594 (##sys#check- exactval 'make-hash-table)594 (##sys#check-fixnum val 'make-hash-table) 595 595 (unless (fx< 0 val) 596 596 (error 'make-hash-table "invalid size" val) )
Note: See TracChangeset
for help on using the changeset viewer.