fixed up the string constants collection

collects/string-constants/main.rkt

@@ -1,3 +1,3 @@
-#lang scheme/base
-(require "string-constant.ss")
-(provide (all-from-out "string-constant.ss"))
+#lang racket/base
+(require "string-constant.rkt")
+(provide (all-from-out "string-constant.rkt"))

collects/string-constants/string-constant.rkt

@@ -2,19 +2,19 @@
 (require (for-syntax racket/base)
 	 (for-syntax mzlib/etc)
 	 (for-syntax mzlib/list)
-	 (for-syntax (prefix-in english: "english-string-constants.rkt"))
-	 (for-syntax (prefix-in spanish: "spanish-string-constants.rkt"))
-	 (for-syntax (prefix-in german: "german-string-constants.rkt"))
-	 (for-syntax (prefix-in french: "french-string-constants.rkt"))
-	 (for-syntax (prefix-in dutch: "dutch-string-constants.rkt"))
-	 (for-syntax (prefix-in danish: "danish-string-constants.rkt"))
-	 (for-syntax (prefix-in portuguese: "portuguese-string-constants.rkt"))
-	 (for-syntax (prefix-in japanese: "japanese-string-constants.rkt"))
-	 (for-syntax (prefix-in traditional-chinese: "traditional-chinese-string-constants.rkt"))
-	 (for-syntax (prefix-in simplified-chinese: "simplified-chinese-string-constants.rkt"))
-	 (for-syntax (prefix-in russian: "russian-string-constants.rkt"))
-	 (for-syntax (prefix-in ukrainian: "ukrainian-string-constants.rkt"))
-	 (for-syntax (prefix-in korean: "korean-string-constants.rkt")))
+	 (for-syntax (prefix-in english: "private/english-string-constants.rkt"))
+	 (for-syntax (prefix-in spanish: "private/spanish-string-constants.rkt"))
+	 (for-syntax (prefix-in german: "private/german-string-constants.rkt"))
+	 (for-syntax (prefix-in french: "private/french-string-constants.rkt"))
+	 (for-syntax (prefix-in dutch: "private/dutch-string-constants.rkt"))
+	 (for-syntax (prefix-in danish: "private/danish-string-constants.rkt"))
+	 (for-syntax (prefix-in portuguese: "private/portuguese-string-constants.rkt"))
+	 (for-syntax (prefix-in japanese: "private/japanese-string-constants.rkt"))
+	 (for-syntax (prefix-in traditional-chinese: "private/traditional-chinese-string-constants.rkt"))
+	 (for-syntax (prefix-in simplified-chinese: "private/simplified-chinese-string-constants.rkt"))
+	 (for-syntax (prefix-in russian: "private/russian-string-constants.rkt"))
+	 (for-syntax (prefix-in ukrainian: "private/ukrainian-string-constants.rkt"))
+	 (for-syntax (prefix-in korean: "private/korean-string-constants.rkt")))
 
 (require mzlib/file
          mzlib/etc
@@ -243,12 +243,3 @@
                       (map sc-language-name available-string-constant-sets)])
          (syntax (list 'languages ...)))])))
 
-#|
-(require string-constant)
-(string-constant is-this-your-native-language)
-(string-constants is-this-your-native-language)
-(all-languages)
-(this-language)
-(expand #'(string-constant is-this-your-native-language))
-(expand #'(string-constants is-this-your-native-language))
-|#

collects/string-constants/string-constants.scrbl

@@ -11,7 +11,8 @@ DrRacket's GUI.
 @; ----------------------------------------------------------------------
 
 @section{Using String Constants}
-@defmodule[string-constants]
+@defmodule*/no-declare[(string-constants)]
+@declare-exporting[string-constants/string-constant string-constants]
 
 @defform[(string-constant name)]{
  
@@ -40,20 +41,14 @@ running DrRacket.}
 @; ----------------------------------------------------------------------
 
 @section{Adding String Constants}
-@defmodule[string-constants/string-constant-lang]
 
-To add string constants to DrRacket, see the files:
-
-@itemize[
-  @item{@filepath{english-string-constants.ss}}
-  @item{@filepath{french-string-constants.ss}}
-  @item{@filepath{spanish-string-constants.ss}}
-  @item{@filepath{german-string-constants.ss}}
-  @item{@filepath{danish-string-constants.ss}}
-  @item{@filepath{italian-string-constants.ss}}]
+To add string constants to DrRacket, see the file
+@filepath{private/english-string-constants.rkt}
+and the other string constants files in the @filepath{private}
+directory.
   
 Each file has the same format. They are each modules in the
-@racketmodname[string-constants/string-constant-lang] language. The
+@tt[string-constants/private/string-constant-lang] language. The
 body of each module is a finite mapping table that gives the mapping
 from the symbolic name of a string constant to its translation in the
 appropriate language.
@@ -61,7 +56,7 @@ appropriate language.
 The @filepath{english-string-constants} is considered the master file;
 string constants will be set there and translated into each of the
 other language files.  In addition, the
-@filepath{english-string-constants.ss} file should contain hints about
+@filepath{english-string-constants.rkt} file should contain hints about
 the context of the strings whose symbol name might not be clear.
 
 @; ----------------------------------------------------------------------

collects/string-constants/tests/test-docs-complete.rkt

@@ -1,17 +1,4 @@
 #lang racket/base
 (require tests/utils/docs-complete)
-(check-docs (quote string-constants/ukrainian-string-constants))
-(check-docs (quote string-constants/traditional-chinese-string-constants))
 (check-docs (quote string-constants/string-constant))
-(check-docs (quote string-constants/spanish-string-constants))
-(check-docs (quote string-constants/simplified-chinese-string-constants))
-(check-docs (quote string-constants/russian-string-constants))
-(check-docs (quote string-constants/portuguese-string-constants))
 (check-docs (quote string-constants))
-(check-docs (quote string-constants/korean-string-constants))
-(check-docs (quote string-constants/japanese-string-constants))
-(check-docs (quote string-constants/german-string-constants))
-(check-docs (quote string-constants/french-string-constants))
-(check-docs (quote string-constants/english-string-constants))
-(check-docs (quote string-constants/dutch-string-constants))
-(check-docs (quote string-constants/danish-string-constants))