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

Don't report duplicate error messages.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-12-02 11:00:47 -05:00
parent 9c1569646e
commit 600935aae1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
typed-racket-lib/typed-racket/utils/tc-utils.rkt
View File

@ -5,7 +5,7 @@ This file is for utilities that are only useful for Typed Racket, but
don't depend on any other portion of the system
|#
(require syntax/source-syntax "disappeared-use.rkt"
(require syntax/source-syntax "disappeared-use.rkt" racket/list
racket/promise racket/string racket/lazy-require
syntax/parse/pre (for-syntax racket/base syntax/parse/pre))
@ -121,7 +121,7 @@ don't depend on any other portion of the system
(raise-typecheck-error (err-msg f) (err-stx f))))
(define (report-all-errors)
(define l (reverse delayed-errors))
(define l (remove-duplicates (reverse delayed-errors)))
(cond [(null? l) (void)]
;; if there's only one, we don't need multiple-error handling
[(null? (cdr l))