scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

utils: Typo in the error message in hash-intersect.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-08-01 23:10:32 +02:00
parent 9c9cd78eaa
commit a98ed9b325
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
utils.rkt
View file

@ -605,7 +605,7 @@
#:combine/key [combine/key #:combine/key [combine/key
(if combine (if combine
(λ (_ x y) (combine x y)) (λ (_ x y) (combine x y))
(error 'hash-intersection))] (error 'hash-intersect))]
one . rest) one . rest)
(define common-keys (apply set-intersect (map hash-keys (cons one rest)))) (define common-keys (apply set-intersect (map hash-keys (cons one rest))))
(define res (for/hash ([k (in-list common-keys)]) (define res (for/hash ([k (in-list common-keys)])