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

Swap conditional order

Browse Source 
This has no effect on the truth table, but affects
side effects. It shouldn't actually matter because
`check-all-registered-types` is not called in the
TR top-level anyway, but this seems safer.

original commit: cf7b5b79e766254611255765e8e50f0b80d4c803
This commit is contained in:
Asumu Takikawa 2013-10-26 00:10:04 -04:00
parent aeee35bccb
commit f5ba0864a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/env/global-env.rkt vendored
View File

@ -74,7 +74,7 @@
(free-id-table-remove! the-mapping id))
(define (finish-register-type id [top-level? #f])
(unless (or top-level? (maybe-finish-register-type id))
(unless (or (maybe-finish-register-type id) top-level?)
(tc-error/expr #:stx id "Duplicate definition for ~a" (syntax-e id)))
(void))