diff --git a/utils.rkt b/utils.rkt index b5d5a69..3fa859c 100644 --- a/utils.rkt +++ b/utils.rkt @@ -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)])