From 0f733e29fe4a0737c1e662c1fb2bae9d350b4fbb Mon Sep 17 00:00:00 2001 From: Andrew Kent Date: Wed, 25 Oct 2017 12:44:45 -0400 Subject: [PATCH] add missing check for false in tc-error --- typed-racket-lib/typed-racket/utils/tc-utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/typed-racket-lib/typed-racket/utils/tc-utils.rkt b/typed-racket-lib/typed-racket/utils/tc-utils.rkt index 3f9feead..1fbf6d68 100644 --- a/typed-racket-lib/typed-racket/utils/tc-utils.rkt +++ b/typed-racket-lib/typed-racket/utils/tc-utils.rkt @@ -247,7 +247,7 @@ don't depend on any other portion of the system ;; vars and such don't confuse the user. (cond [(or (not (orig-module-stx)) - (for/and ([s (in-list ostxs)]) + (for/and ([s (in-list ostxs)] #:when s) (eq? (syntax-source s) (syntax-source (orig-module-stx))))) (raise-typecheck-error (apply format msg rest) stxs)] [else (raise-typecheck-error