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

cs: fix hash{,eq,eqv} on an odd number of arguments

Browse Source 
Closes #3051
This commit is contained in:
Matthew Flatt 2020-02-21 21:26:18 -07:00
parent bfce3ba665
commit a68c8eadc6
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/racket-test-core/tests/racket/basic.rktl
View File

@ -394,6 +394,16 @@
(test #t eq? (hasheq) (hash-remove (hasheq 3 4) 3)) (test #t eq? (hasheq) (hash-remove (hasheq 3 4) 3))
(test #t eq? (hasheqv) (hash-remove (hasheqv 3 4) 3)) (test #t eq? (hasheqv) (hash-remove (hasheqv 3 4) 3))
(err/rt-test (hash 1))
(err/rt-test (hasheqv 1))
(err/rt-test (hasheq 1))
(err/rt-test (make-hash 1))
(err/rt-test (make-hasheqv 1))
(err/rt-test (make-hasheq 1))
(err/rt-test (make-weak-hash 1))
(err/rt-test (make-weak-hasheqv 1))
(err/rt-test (make-weak-hasheq 1))
(test #t symbol? 'foo) (test #t symbol? 'foo)
(test #t symbol? (car '(a b))) (test #t symbol? (car '(a b)))
(test #f symbol? "bar") (test #f symbol? "bar")

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

@ -73,6 +73,11 @@
(let loop ([kvs kvs] [h empty-hash]) (let loop ([kvs kvs] [h empty-hash])
(cond (cond
[(null? kvs) h] [(null? kvs) h]
[(null? (cdr kvs))
(raise-arguments-error
'vararg-ctor
"key does not have a value (i.e., an odd number of arguments were provided)"
"key" (car kvs))]
[else (loop (cddr kvs) (intmap-set h (car kvs) (cadr kvs)))]))])) [else (loop (cddr kvs) (intmap-set h (car kvs) (cadr kvs)))]))]))
(define list-ctor (define list-ctor