From 4aa7bc8439195addb172976253054ca1d41c72a1 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 22 Sep 2010 17:51:18 -0400 Subject: [PATCH] Explained a design decision. --- collects/typed-scheme/utils/tc-utils.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/typed-scheme/utils/tc-utils.rkt b/collects/typed-scheme/utils/tc-utils.rkt index 4a21c083ce..04b8e7295b 100644 --- a/collects/typed-scheme/utils/tc-utils.rkt +++ b/collects/typed-scheme/utils/tc-utils.rkt @@ -83,6 +83,7 @@ don't depend on any other portion of the system (define (reset!) (set! delayed-errors null)) (match (reverse delayed-errors) [(list) (void)] + ;; if there's only one, we don't need multiple-error handling [(list (struct err (msg stx))) (reset!) (raise-typecheck-error msg stx)]