suzanne.soy/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.
This commit is contained in:
Asumu Takikawa 2013-10-26 00:10:04 -04:00
parent 6f70aaa0fc
commit cf7b5b79e7
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))