suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hash fns: use bad-pos raise-argument-error arg

Browse Source
This commit is contained in:
Stephen Chang 2021-05-19 17:28:07 -04:00 committed by Stephen Chang
parent 9736595c7b
commit d8d9255c2a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
racket/src/cs/rumble/hash.ss
View File

@ -129,7 +129,7 @@
(let ([ht (impersonator-val ht)]) (let ([ht (impersonator-val ht)])
(mutable-hash? ht))) (mutable-hash? ht)))
(impersonate-hash-set! ht k v)] (impersonate-hash-set! ht k v)]
[else (raise-argument-error 'hash-set! "(and/c hash? (not/c immutable?))" ht)])) [else (raise-argument-error 'hash-set! "(and/c hash? (not/c immutable?))" 0 ht k v)]))
(define (mutable-hash-set! ht k v) (define (mutable-hash-set! ht k v)
(lock-acquire (mutable-hash-lock ht)) (lock-acquire (mutable-hash-lock ht))
@ -148,7 +148,7 @@
(let ([ht (impersonator-val ht)]) (let ([ht (impersonator-val ht)])
(mutable-hash? ht))) (mutable-hash? ht)))
(impersonate-hash-remove! ht k)] (impersonate-hash-remove! ht k)]
[else (raise-argument-error 'hash-remove! "(and/c hash? (not/c immutable?))" ht)])) [else (raise-argument-error 'hash-remove! "(and/c hash? (not/c immutable?))" 0 ht k)]))
(define (mutable-hash-remove! ht k) (define (mutable-hash-remove! ht k)
(lock-acquire (mutable-hash-lock ht)) (lock-acquire (mutable-hash-lock ht))
@ -230,7 +230,7 @@
[(and (impersonator? ht) [(and (impersonator? ht)
(intmap? (impersonator-val ht))) (intmap? (impersonator-val ht)))
(impersonate-hash-set ht k v)] (impersonate-hash-set ht k v)]
[else (raise-argument-error 'hash-set "(and/c hash? immutable?)" ht)])) [else (raise-argument-error 'hash-set "(and/c hash? immutable?)" 0 ht k v)]))
(define (hash-remove ht k) (define (hash-remove ht k)
(cond (cond
@ -238,7 +238,7 @@
[(and (impersonator? ht) [(and (impersonator? ht)
(intmap? (impersonator-val ht))) (intmap? (impersonator-val ht)))
(impersonate-hash-remove ht k)] (impersonate-hash-remove ht k)]
[else (raise-argument-error 'hash-remove "(and/c hash? immutable?)" ht)])) [else (raise-argument-error 'hash-remove "(and/c hash? immutable?)" 0 ht k)]))
(define (hash-clear ht) (define (hash-clear ht)
(cond (cond
@ -364,7 +364,7 @@
(authentic-hash? (impersonator-val ht))) (authentic-hash? (impersonator-val ht)))
(impersonate-hash-ref ht k)] (impersonate-hash-ref ht k)]
[else [else
(raise-argument-error 'hash-ref "hash?" ht)])) (raise-argument-error 'hash-ref "hash?" 0 ht k)]))
(define/who hash-ref-key (define/who hash-ref-key
(case-lambda (case-lambda
@ -396,7 +396,7 @@
(authentic-hash? (impersonator-val ht))) (authentic-hash? (impersonator-val ht)))
(impersonate-hash-ref-key ht k)] (impersonate-hash-ref-key ht k)]
[else [else
(raise-argument-error 'hash-ref-key "hash?" ht)])) (raise-argument-error 'hash-ref-key "hash?" 0 ht k)]))
(define (mutable-hash-ref-key/none ht k) (define (mutable-hash-ref-key/none ht k)
(lock-acquire (mutable-hash-lock ht)) (lock-acquire (mutable-hash-lock ht))
@ -764,7 +764,7 @@
(authentic-hash? (impersonator-val ht))) (authentic-hash? (impersonator-val ht)))
;; `hash-iterate-next` must not hash any keys: ;; `hash-iterate-next` must not hash any keys:
(hash-iterate-next (impersonator-val ht) i)] (hash-iterate-next (impersonator-val ht) i)]
[else (raise-argument-error who "hash?" ht)])) [else (raise-argument-error who "hash?" 0 ht i)]))
(define (locked-iterable-hash-iterate-next ht init-i) (define (locked-iterable-hash-iterate-next ht init-i)
(let loop ([i (or init-i -1)]) (let loop ([i (or init-i -1)])