suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

expander: avoid excessive binding information in error messages

Browse Source
This commit is contained in:
Matthew Flatt 2018-05-26 20:29:07 -06:00
parent 10c05aa3a1
commit b1bf333523
3 changed files with 2458 additions and 2468 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/expand/syntax-id-error.rkt
View File

@ -18,7 +18,7 @@
;; ---------------------------------------- ;; ----------------------------------------
(define (syntax-debug-info-string s ctx) (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 (cond
[(not (or (pair? (hash-ref info 'bindings null)) [(not (or (pair? (hash-ref info 'bindings null))
(for*/or ([fb-info (in-list (hash-ref info 'fallbacks null))]) (for*/or ([fb-info (in-list (hash-ref info 'fallbacks null))])

2
racket/src/expander/syntax/debug.rkt
View File

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

4922
racket/src/racket/src/startup.inc
View File

File diff suppressed because it is too large Load Diff