add missing check for false in tc-error

2017-10-25 12:44:45 -04:00 · 2017-10-25 12:44:45 -04:00 · 0f733e29fe
commit 0f733e29fe
parent 7349793f5a
1 changed files with 1 additions and 1 deletions
--- 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