From a46461d4f7c675d97d1d4c1265e260494ca391ac Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sun, 25 Apr 2010 18:41:53 -0400 Subject: [PATCH] racket/base instead of scheme/base, see PR 10870 --- .../tests/typed-scheme/unit-tests/type-annotation-test.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/tests/typed-scheme/unit-tests/type-annotation-test.ss b/collects/tests/typed-scheme/unit-tests/type-annotation-test.ss index 57b43d5e1a..30909685c2 100644 --- a/collects/tests/typed-scheme/unit-tests/type-annotation-test.ss +++ b/collects/tests/typed-scheme/unit-tests/type-annotation-test.ss @@ -15,15 +15,14 @@ (type-ascription (let ([ons (current-namespace)] [ns (make-empty-namespace)]) (parameterize ([current-namespace ns]) - (namespace-attach-module ons 'scheme/base ns) - (namespace-require 'scheme/base) + (namespace-attach-module ons 'racket/base ns) + (namespace-require 'racket/base) (namespace-require 'typed-scheme/private/prims) (namespace-require 'typed-scheme/private/base-types) (namespace-require 'typed-scheme/private/base-types-extra) (expand 'ann-stx)))) ty)) -#reader typed-scheme/typed-reader (define (type-annotation-tests) (test-suite "Type Annotation tests"