From 8c51bb24f386194296d32ef6d35a402e2a4240e2 Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Fri, 19 Jul 2013 08:03:10 -0700 Subject: [PATCH] Make parse-type-tests work even if the typecheck-tests are not run. original commit: 55e90436791a97d107c364261a217d5e62a44ccc --- .../tests/typed-racket/unit-tests/parse-type-tests.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/parse-type-tests.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/parse-type-tests.rkt index c65f2226..350d7805 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/parse-type-tests.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/parse-type-tests.rkt @@ -26,12 +26,12 @@ ;; of the old identifier. ;; This relies on the identifiers being bound at phase 0 in this module (which they are, ;; because we have a phase 0 require of "base-env.rkt"). +(initialize-type-names) (for ([pr (type-alias-env-map cons)]) (let ([nm (car pr)] [ty (cdr pr)]) (register-resolved-type-alias (datum->syntax #'here (syntax->datum nm)) ty))) -(initialize-type-names) (define-syntax (run-one stx) (syntax-case stx ()