From 8cf31c8de6aa12b35c016e0f35655ae516eb2d4c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 21 Apr 2010 18:50:16 -0600
Subject: [PATCH] change #:module-info to #:language-info for consistency with
 module->language-info

original commit: 7503f8c6e948a7e949cc4bb48e4fad71f877c90c
---
 collects/typed-scheme/{module-info.ss => language-info.ss} | 6 +++---
 collects/typed/scheme/base/lang/reader.ss                  | 6 +++---
 collects/typed/scheme/lang/reader.ss                       | 6 +++---
 3 files changed, 9 insertions(+), 9 deletions(-)
 rename collects/typed-scheme/{module-info.ss => language-info.ss} (73%)

diff --git a/collects/typed-scheme/module-info.ss b/collects/typed-scheme/language-info.ss
similarity index 73%
rename from collects/typed-scheme/module-info.ss
rename to collects/typed-scheme/language-info.ss
index 864540fe..ebecb8e2 100644
--- a/collects/typed-scheme/module-info.ss
+++ b/collects/typed-scheme/language-info.ss
@@ -1,10 +1,10 @@
 #lang scheme/base
 (require typed-scheme/typed-reader)
-(provide module-info configure)
+(provide get-info configure)
 
-(define ((module-info arg) key default)
+(define ((get-info arg) key default)
   (case key
-    [(configure-runtime) `(#(typed-scheme/module-info configure ()))]
+    [(configure-runtime) `(#(typed-scheme/language-info configure ()))]
     [else default]))
 
 ;; options currently always empty
diff --git a/collects/typed/scheme/base/lang/reader.ss b/collects/typed/scheme/base/lang/reader.ss
index ce8f8d0f..b0982890 100644
--- a/collects/typed/scheme/base/lang/reader.ss
+++ b/collects/typed/scheme/base/lang/reader.ss
@@ -5,14 +5,14 @@ typed/scheme/base
 #:read r:read
 #:read-syntax r:read-syntax
 #:info make-info
-#:module-info make-module-info
+#:language-info make-language-info
 
 (define (make-info key default use-default)
   (case key
     [else (use-default key default)]))
 
-(define make-module-info
-  `#(typed-scheme/module-info module-info ()))
+(define make-language-info
+  `#(typed-scheme/language-info get-info ()))
 
 
 (require (prefix-in r: typed-scheme/typed-reader))
diff --git a/collects/typed/scheme/lang/reader.ss b/collects/typed/scheme/lang/reader.ss
index 3a91f1a7..0c7fbe6b 100644
--- a/collects/typed/scheme/lang/reader.ss
+++ b/collects/typed/scheme/lang/reader.ss
@@ -5,14 +5,14 @@ typed/scheme
 #:read r:read
 #:read-syntax r:read-syntax
 #:info make-info
-#:module-info make-module-info
+#:language-info make-language-info
 
 (define (make-info key default use-default)
   (case key
     [else (use-default key default)]))
 
-(define make-module-info
-  `#(typed-scheme/module-info module-info ()))
+(define make-language-info
+  `#(typed-scheme/language-info get-info ()))
 
 
 (require (prefix-in r: typed-scheme/typed-reader))