diff --git a/pitfall/pitfall/check-pdf.rkt b/pitfall/pitfall/check-pdf.rkt index 81a78433..9befdc42 100644 --- a/pitfall/pitfall/check-pdf.rkt +++ b/pitfall/pitfall/check-pdf.rkt @@ -126,9 +126,9 @@ (for/and ([(k1 v1) (in-dict d1)] [(k2 v2) (in-dict d2)]) (unless (equal? k1 k2) - (error (format "keys unequal in ~a and ~a: ~a ≠ ~a" arg1 arg2 k1 k2))) + (error (format "keys unequal in ~e and ~e: ~a ≠ ~a" arg1 arg2 k1 k2))) (unless (equal? v1 v2) - (error (format "values unequal in ~a and ~a: ~e ≠ ~e" arg1 arg2 v1 v2))) + (error (format "values unequal in ~e and ~e: ~e ≠ ~e" arg1 arg2 v1 v2))) (when (dict? v1) (dict-compare v1 v2)) #true)))