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

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

View File

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