Fix language info when running 'racket -I typed/racket'.

original commit: d594e6ee491fd2b987f974c0275df9d40cf74320

collects/typed-scheme/language-info.rkt

@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang racket/base
 (require typed-scheme/typed-reader)
 (provide get-info configure)
 
@@ -9,10 +9,9 @@
 
 ;; options currently always empty
 (define (configure options)
-  (namespace-require 'scheme/base)
+  (namespace-require 'racket/base)
   (eval '(begin
-           (require (for-syntax typed-scheme/utils/tc-utils scheme/base))
+           (require (for-syntax typed-scheme/utils/tc-utils racket/base))
            (begin-for-syntax (set-box! typed-context? #t)))
         (current-namespace))
   (current-readtable (readtable)))
-

collects/typed-scheme/main.rkt

@@ -1,5 +1,4 @@
-#lang racket/base
+#lang typed-scheme/minimal
 
 (require typed/scheme/base)
 (provide (all-from-out typed/scheme/base))
-

collects/typed-scheme/minimal/lang/reader.rkt

@@ -0,0 +1,13 @@
+#lang s-exp syntax/module-reader
+
+typed-scheme/minimal
+
+#:language-info make-language-info
+#:info make-info
+
+(define (make-info key default use-default)
+  (case key
+    [else (use-default key default)]))
+
+(define make-language-info
+  `#(typed-scheme/language-info get-info ()))

collects/typed/racket.rkt

@@ -1,4 +1,4 @@
-#lang racket/base
+#lang typed-scheme/minimal
 
 (require typed/racket/base racket/require (subtract-in racket typed/racket/base racket/contract)
 	 (for-syntax racket/base))

collects/typed/racket/base.rkt

@@ -1,4 +1,4 @@
-#lang s-exp typed-scheme/minimal
+#lang typed-scheme/minimal
 
 (providing (libs (except racket/base #%module-begin #%top-interaction with-handlers lambda #%app define-struct for for*))
 	   (basics #%module-begin #%top-interaction lambda #%app))

collects/typed/scheme.rkt

@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang typed-scheme/minimal
 
 (require typed/scheme/base scheme/require (subtract-in scheme typed/scheme/base scheme/contract)
 	 (for-syntax scheme/base))

collects/typed/scheme/base.rkt

@@ -1,4 +1,4 @@
-#lang s-exp typed-scheme/minimal
+#lang typed-scheme/minimal
 
 (providing (libs (except scheme/base #%module-begin #%top-interaction with-handlers lambda #%app define-struct for for*))
 	   (basics #%module-begin #%top-interaction lambda #%app))