expander: avoid excessive binding information in error messages

racket/src/expander/expand/syntax-id-error.rkt

@@ -18,7 +18,7 @@
 ;; ----------------------------------------
 
 (define (syntax-debug-info-string s ctx)
-  (define info (syntax-debug-info s (expand-context-phase ctx) #t))
+  (define info (syntax-debug-info s (expand-context-phase ctx) #f))
   (cond
    [(not (or (pair? (hash-ref info 'bindings null))
              (for*/or ([fb-info (in-list (hash-ref info 'fallbacks null))])

racket/src/expander/syntax/debug.rkt

@@ -40,8 +40,6 @@
                          ([sc (in-set s-scs)]
                           [(scs b) (in-binding-table sym (scope-binding-table sc) s null)]
                           #:when (and scs b
-                                      (or all-bindings?
-                                          (subset? scs s-scs))
                                       ;; Skip overidden:
                                       (not (set-member? covered-scope-sets scs))))
                 (values