We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
always-throwing-if-to-when
1 parent 56c5100 commit 323d2baCopy full SHA for 323d2ba
typed-racket-lib/typed-racket/utils/tc-utils.rkt
@@ -105,9 +105,9 @@ don't depend on any other portion of the system
105
[else stx]))))
106
107
(define (raise-typecheck-error msg stxs)
108
- (if (null? (cdr stxs))
109
- (raise-syntax-error (string->symbol "Type Checker") msg (car stxs))
110
- (raise-syntax-error (string->symbol "Type Checker") msg #f #f stxs)))
+ (when (null? (cdr stxs))
+ (raise-syntax-error (string->symbol "Type Checker") msg (car stxs)))
+ (raise-syntax-error (string->symbol "Type Checker") msg #f #f stxs))
111
112
(define delayed-errors null)
113
0 commit comments