switched info.ss files to #lang

svn: r8532

collects/algol60/info.ss

@@ -1,7 +1,7 @@
-(module info setup/infotab
-  (define name "Algol 60")
-  (define tools '(("tool.ss")))
-  (define tool-names '("Algol 60"))
-  (define scribblings '(("algol60.scrbl")))
-  (define doc-categories '(other)))
+#lang setup/infotab
 
+(define name "Algol 60")
+(define tools '(("tool.ss")))
+(define tool-names '("Algol 60"))
+(define scribblings '(("algol60.scrbl")))
+(define doc-categories '(other))

collects/browser/info.ss

@@ -1,5 +1,5 @@
-(module info setup/infotab
-  (define name "Browser")
-  (define tools (list (list "tool.ss")))
-  (define tool-names (list "Browser")))
+#lang setup/infotab
 
+(define name "Browser")
+(define tools (list (list "tool.ss")))
+(define tool-names (list "Browser"))

collects/browser/private/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "Browser private"))
+#lang setup/infotab
+
+(define name "Browser private")

collects/combinator-parser/info.ss

@@ -1,4 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Combinator parser"))
-
+(define name "Combinator parser")

collects/combinator-parser/private-combinator/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "Combinator-parser private-combinator"))
+#lang setup/infotab
+
+(define name "Combinator-parser private-combinator")

collects/compiler/info.ss

@@ -1,9 +1,9 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "mzc")
+(define name "mzc")
 
-  (define scribblings '(("cffi.scrbl")))
-  (define doc-categories '((foreign -1)))
+(define scribblings '(("cffi.scrbl")))
+(define doc-categories '((foreign -1)))
 
-  (define mzscheme-launcher-libraries (list "main.ss"))
-  (define mzscheme-launcher-names (list "mzc")))
+(define mzscheme-launcher-libraries (list "main.ss"))
+(define mzscheme-launcher-names (list "mzc"))

collects/compiler/private/info.ss

@@ -1,3 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "mzc private"))
+(define name "mzc private")

collects/config/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "Config")
-  (define scribblings '(("config.scrbl"))))
+#lang setup/infotab
+
+(define name "Config")
+(define scribblings '(("config.scrbl")))

collects/drscheme/info.ss

@@ -1,7 +1,7 @@
-(module info setup/infotab
-  (define name "DrScheme")
-  (define tools (list "syncheck.ss" (list "time-keystrokes.ss" "private")))
-  (define tool-names (list "Check Syntax" "Time Keystrokes"))
-  (define mred-launcher-names     (list "DrScheme"))
-  (define mred-launcher-libraries (list "drscheme.ss")))
+#lang setup/infotab
 
+(define name "DrScheme")
+(define tools (list "syncheck.ss" (list "time-keystrokes.ss" "private")))
+(define tool-names (list "Check Syntax" "Time Keystrokes"))
+(define mred-launcher-names     (list "DrScheme"))
+(define mred-launcher-libraries (list "drscheme.ss"))

collects/drscheme/private/info.ss

@@ -1,5 +1,3 @@
-(module info setup/infotab
-  (define name "DrScheme private"))
+#lang setup/infotab
 
-
-  
+(define name "DrScheme private")

collects/dynext/info.ss

@@ -1,5 +1,4 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Dynext")
-  (define scribblings '(("dynext.scrbl" (multi-page)))))
-
+(define name "Dynext")
+(define scribblings '(("dynext.scrbl" (multi-page))))

collects/embedded-gui/info.ss

@@ -1,4 +1,3 @@
-(module info setup/infotab
-  (define name "Embedded GUI"))
-
+#lang setup/infotab
 
+(define name "Embedded GUI")

collects/eopl/info.ss

@@ -1,14 +1,15 @@
-(module info setup/infotab
-  (require (lib "string-constant.ss" "string-constants"))
-  
-  (define name "EoPL")
-  (define tools (list "eopl-tool.ss"))
-  (define tool-icons (list "eopl-small.gif"))
-  (define tool-names (list "Essentials of Programming Languages"))
-  (define tool-urls (list "http://www.cs.indiana.edu/eopl/"))
-  
-  (define textbook-pls
-    (list (list '("eopl-small.gif" "eopl")
-                "Essentials of Programming Languages"
-                (string-constant teaching-languages)
-                "Essentials of Programming Languages (2nd ed.)"))))
+#lang setup/infotab
+
+(require string-constants/string-constant)
+
+(define name "EoPL")
+(define tools (list "eopl-tool.ss"))
+(define tool-icons (list "eopl-small.gif"))
+(define tool-names (list "Essentials of Programming Languages"))
+(define tool-urls (list "http://www.cs.indiana.edu/eopl/"))
+
+(define textbook-pls
+  (list (list '("eopl-small.gif" "eopl")
+              "Essentials of Programming Languages"
+              (string-constant teaching-languages)
+              "Essentials of Programming Languages (2nd ed.)")))

collects/eopl/private/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "EoPL private"))
+#lang setup/infotab
+
+(define name "EoPL private")

collects/errortrace/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "Errortrace"))
+#lang setup/infotab
+
+(define name "Errortrace")

collects/errortrace/scribblings/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "Errortrace documentation")
-  (define scribblings '(("errortrace.scrbl" (multi-page)))))
+#lang setup/infotab
+
+(define name "Errortrace documentation")
+(define scribblings '(("errortrace.scrbl" (multi-page))))

collects/ffi/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "Foreign Function Interfaces"))
+#lang setup/infotab
+
+(define name "Foreign Function Interfaces")

collects/file/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "File"))
+#lang setup/infotab
+
+(define name "File")

collects/file/scribblings/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "File documentation")
-  (define scribblings '(("file.scrbl" (multi-page)))))
+#lang setup/infotab
+
+(define name "File documentation")
+(define scribblings '(("file.scrbl" (multi-page))))

collects/framework/info.ss

@@ -1,3 +1,3 @@
-(module info setup/infotab
-  (define name "Framework"))
+#lang setup/infotab
 
+(define name "Framework"))

collects/framework/private/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "Framework private")
-  (define compile-omit-files '("standard-menus.ss")))
+#lang setup/infotab
+
+(define name "Framework private")
+(define compile-omit-files '("standard-menus.ss"))

collects/frtime/demos/gui/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "frtime gui wrapper"))
+#lang setup/infotab
+
+(define name "frtime gui wrapper")

collects/frtime/info.ss

@@ -1,8 +1,9 @@
-(module info setup/infotab
-  (define name "frtime")
+#lang setup/infotab
 
-  (define scribblings '(("frtime.scrbl" ())))  
-  (define compile-subcollections (list (list "frtime" "demos" "gui")))
-  (define tools (list "frtime-tool.ss"))
-  (define tool-icons (list '("clock.png" "frtime")))
-  (define tool-names (list "FrTime Languages")))
+(define name "frtime")
+
+(define scribblings '(("frtime.scrbl" ())))
+(define compile-subcollections '(("frtime" "demos" "gui")))
+(define tools      '("frtime-tool.ss"))
+(define tool-icons '(("clock.png" "frtime")))
+(define tool-names '("FrTime Languages"))

collects/games/aces/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Aces")
-  (define game "aces.scm")
-  (define game-set "Card Games"))
+#lang setup/infotab
+
+(define name "Aces")
+(define game "aces.scm")
+(define game-set "Card Games")

collects/games/blackjack/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Blackjack")
-  (define game "blackjack.ss")
-  (define game-set "Card Games"))
+#lang setup/infotab
+
+(define name "Blackjack")
+(define game "blackjack.ss")
+(define game-set "Card Games")

collects/games/cards/info.ss

@@ -1,4 +1,4 @@
-(module info setup/infotab
-  (define name "Game Cards")
-  (define scribblings '(("cards.scrbl"))))
+#lang setup/infotab
 
+(define name "Game Cards")
+(define scribblings '(("cards.scrbl")))

collects/games/checkers/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Checkers")
-  (define game "checkers.ss")
-  (define game-set "Board Games"))
+#lang setup/infotab
+
+(define name "Checkers")
+(define game "checkers.ss")
+(define game-set "Board Games")

collects/games/crazy8s/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Crazy 8s")
-  (define game "crazy8s.ss")
-  (define game-set "Card Games"))
+#lang setup/infotab
+
+(define name "Crazy 8s")
+(define game "crazy8s.ss")
+(define game-set "Card Games")

collects/games/doors/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "Doors game library"))
+#lang setup/infotab
+
+(define name "Doors game library")

collects/games/gcalc/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "GCalc")
-  (define game "gcalc.ss"))
+#lang setup/infotab
+
+(define name "GCalc")
+(define game "gcalc.ss")

collects/games/ginrummy/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Rummy")
-  (define game "ginrummy.ss")
-  (define game-set "Card Games"))
+#lang setup/infotab
+
+(define name "Rummy")
+(define game "ginrummy.ss")
+(define game-set "Card Games")

collects/games/gl-board-game/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "3D board game library"))
+#lang setup/infotab
+
+(define name "3D board game library")

collects/games/gobblet/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Gobblet")
-  (define game "gobblet.ss")
-  (define game-set "Board Games"))
+#lang setup/infotab
+
+(define name "Gobblet")
+(define game "gobblet.ss")
+(define game-set "Board Games")

collects/games/gofish/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Go Fish")
-  (define game "gofish.ss")
-  (define game-set "Card Games"))
+#lang setup/infotab
+
+(define name "Go Fish")
+(define game "gofish.ss")
+(define game-set "Card Games")

collects/games/info.ss

@@ -1,10 +1,8 @@
-(module info setup/infotab
-  (define name "Games")
-  (define mred-launcher-libraries (list "games.ss"))
-  (define mred-launcher-names (list "PLT Games"))
-  (define doc-sub-collections
-    (list "cards" "paint-by-numbers" "same" "lights-out" "aces" "spider"
-	  "memory" "pousse" "crazy8s"
-          "gcalc" "parcheesi" "gl-board-game"
-	  "jewel" "doors")))
+#lang setup/infotab
 
+(define name "Games")
+(define mred-launcher-libraries (list "games.ss"))
+(define mred-launcher-names (list "PLT Games"))
+(define doc-sub-collections
+  '("cards" "paint-by-numbers" "same" "lights-out" "aces" "spider" "memory"
+    "pousse" "crazy8s" "gcalc" "parcheesi" "gl-board-game" "jewel" "doors"))

collects/games/jewel/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Jewel")
-  (define game "jewel.scm")
-  (define game-set "Puzzle Games"))
+#lang setup/infotab
+
+(define name "Jewel")
+(define game "jewel.scm")
+(define game-set "Puzzle Games")

collects/games/lights-out/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Lights Out")
-  (define game-set "Puzzle Games")
-  (define game "lights-out.ss"))
+#lang setup/infotab
+
+(define name "Lights Out")
+(define game-set "Puzzle Games")
+(define game "lights-out.ss")

collects/games/memory/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Memory")
-  (define game "memory.ss")
-  (define game-set "Card Games"))
+#lang setup/infotab
+
+(define name "Memory")
+(define game "memory.ss")
+(define game-set "Card Games")

collects/games/mines/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Minesweeper")
-  (define game-set "Puzzle Games")
-  (define game "mines.ss"))
+#lang setup/infotab
+
+(define name "Minesweeper")
+(define game-set "Puzzle Games")
+(define game "mines.ss")

collects/games/paint-by-numbers/info.ss

@@ -1,25 +1,21 @@
-(module info setup/infotab
-  (define name "Paint by Numbers")
-  (define game "paint-by-numbers.ss")
-  (define game-set "Puzzle Games")
-  (define compile-omit-files '(
-			       ;; Skipped because it's huge - lots
-			       ;; of data-encoding units
-			       "all-problems.ss"
-			       
-			       ;; Skipped because it requires
-			       ;; all-problems.ss
-			       "paint-by-numbers.ss"
-			       
-			       ;; Skipped because these are used
-			       ;; only to build the huge units.
-			       "build-hattori.ss"
-                               "build-kajitani.ss"
-                               "build-problems.ss"
-                               "raw-hattori.ss"
-                               "raw-kajitani.ss"
-                               "raw-problems.ss"
-                               "raw-misc.ss"
-                               "build-rows-cols.ss"
-                               "count-missing.ss"
-                               "main.ss")))
+#lang setup/infotab
+
+(define name "Paint by Numbers")
+(define game "paint-by-numbers.ss")
+(define game-set "Puzzle Games")
+(define compile-omit-files
+  '(;; Skipped because it's huge - lots of data-encoding units
+    "all-problems.ss"
+    ;; Skipped because it requires all-problems.ss
+    "paint-by-numbers.ss"
+    ;; Skipped because these are used only to build the huge units.
+    "build-hattori.ss"
+    "build-kajitani.ss"
+    "build-problems.ss"
+    "raw-hattori.ss"
+    "raw-kajitani.ss"
+    "raw-problems.ss"
+    "raw-misc.ss"
+    "build-rows-cols.ss"
+    "count-missing.ss"
+    "main.ss"))

collects/games/parcheesi/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Parcheesi")
-  (define game "parcheesi.ss")
-  (define game-set "Board Games"))
+#lang setup/infotab
+
+(define name "Parcheesi")
+(define game "parcheesi.ss")
+(define game-set "Board Games")

collects/games/pousse/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Pousse")
-  (define game "pousse.ss")
-  (define game-set "Board Games"))
+#lang setup/infotab
+
+(define name "Pousse")
+(define game "pousse.ss")
+(define game-set "Board Games")

collects/games/same/info.ss

@@ -1,5 +1,5 @@
-(module info setup/infotab
-  (define name "Same")
-  (define game-set "Puzzle Games")
-  (define game "same.ss"))
+#lang setup/infotab
 
+(define name "Same")
+(define game-set "Puzzle Games")
+(define game "same.ss")

collects/games/slidey/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Slidey")
-  (define game-set "Puzzle Games")
-  (define game "slidey.ss"))
+#lang setup/infotab
+
+(define name "Slidey")
+(define game-set "Puzzle Games")
+(define game "slidey.ss")

collects/games/spider/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Spider")
-  (define game "spider.ss")
-  (define game-set "Card Games"))
+#lang setup/infotab
+
+(define name "Spider")
+(define game "spider.ss")
+(define game-set "Card Games")

collects/graphics/info.ss

@@ -1,5 +1,4 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Graphics")
-  (define compile-omit-files '("value-turex.ss" "value-turtle-lib.ss")))
-
+(define name "Graphics")
+(define compile-omit-files '("value-turex.ss" "value-turtle-lib.ss"))

collects/graphics/scribblings/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "Graphics documentation")
-  (define scribblings '(("graphics.scrbl" (multi-page)))))
+#lang setup/infotab
+
+(define name "Graphics documentation")
+(define scribblings '(("graphics.scrbl" (multi-page))))

collects/guibuilder/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "GUI Builder")
-  (define tools '(("tool.ss")))
-  (define tool-names '("GUI Builder")))
+#lang setup/infotab
+
+(define name "GUI Builder")
+(define tools '(("tool.ss")))
+(define tool-names '("GUI Builder"))

collects/handin-client/info.ss

@@ -1,42 +1,41 @@
-(module info setup/infotab
-  ;; Modify these definitions to enable & customize the tool.
-  ;; (Detailed instructions are in the handin-server collection's doc.txt)
-  ;; Also replace the "server-cert.pem" files.
+#lang setup/infotab
 
-  ;; Your course name (used for menus, button label, collection name etc)
-  (define name "Course")
+;; Modify these definitions to enable & customize the tool.
+;; (Detailed instructions are in the handin-server collection's doc.txt)
+;; Also replace the "server-cert.pem" files.
 
-  ;; The handin tool is disabled by default, uncomment these three lines to
-  ;; enable it
-  ;(define tools      `("client-gui.ss"))
-  ;(define tool-names `(,name))
-  ;(define tool-icons `("icon.png"))
-  ;; Modify the provided "icon.png" file to your school/lab/etc logo.
+;; Your course name (used for menus, button label, collection name etc)
+(define name "Course")
 
-  ;; You must define a server:port for the client to be functional
-  ;(define server:port "localhost:7979")
+;; The handin tool is disabled by default, uncomment these three lines to
+;; enable it
+;(define tools      `("client-gui.ss"))
+;(define tool-names `(,name))
+;(define tool-icons `("icon.png"))
+;; Modify the provided "icon.png" file to your school/lab/etc logo.
 
-  ;; The following are optional. Uncomment and fill in
-  ;; the values to add a menu item under "Help" to open
-  ;; the specified web page (using the user's chosen web
-  ;; browser.)
-  ;(define web-menu-name "Course Homepage")
-  ;(define web-address "http://www.university.edu/course/")
+;; You must define a server:port for the client to be functional
+;(define server:port "localhost:7979")
 
-  ;; Auto-updater section (see handin-server/doc.txt for details)
-  ;(define enable-auto-update #t) ; enable auto-update?
-  ;(define version-filename "handin-version")
-  ;(define package-filename "handin.plt")
+;; The following are optional. Uncomment and fill in
+;; the values to add a menu item under "Help" to open
+;; the specified web page (using the user's chosen web
+;; browser.)
+;(define web-menu-name "Course Homepage")
+;(define web-address "http://www.university.edu/course/")
 
-  ;; Multi-file submission section (see handin-server/doc.txt for details)
-  ;(define enable-multifile-handin #t) ; enable multi-file?
-  ;(define selection-mode 'extended) ; mode for file choose, usually 'extended
-  ;(define selection-default ; suffixes to auto-choose (string or string-list)
-  ;  '("*.scm;*.ss" "*.scm;*.ss;*.txt"))
+;; Auto-updater section (see handin-server/doc.txt for details)
+;(define enable-auto-update #t) ; enable auto-update?
+;(define version-filename "handin-version")
+;(define package-filename "handin.plt")
 
-  ;; Client configuration
-  ;(define password-keep-minutes 5) ; client remembers entered password 5 mins
+;; Multi-file submission section (see handin-server/doc.txt for details)
+;(define enable-multifile-handin #t) ; enable multi-file?
+;(define selection-mode 'extended) ; mode for file choose, usually 'extended
+;(define selection-default ; suffixes to auto-choose (string or string-list)
+;  '("*.scm;*.ss" "*.scm;*.ss;*.txt"))
 
-  (define requires '(("mred") ("openssl")))
+;; Client configuration
+;(define password-keep-minutes 5) ; client remembers entered password 5 mins
 
-  )
+(define requires '(("mred") ("openssl")))

collects/handin-server/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "Handin Server"))
+#lang setup/infotab
+
+(define name "Handin Server")

collects/help/info.ss

@@ -1,4 +1,4 @@
-; help collection
-(module info setup/infotab
-  (define name "Help")
-  (define post-install-collection "installer.ss"))
+#lang setup/infotab
+
+(define name "Help")
+(define post-install-collection "installer.ss")

collects/hierlist/info.ss

@@ -1,3 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Hierarchical list widget"))
+(define name "Hierarchical list widget")

collects/honu-module/info.ss

@@ -1,4 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "#honu"))
-
+(define name "#honu")

collects/htdch/colors/info.ss

@@ -1,5 +1,6 @@
-(module info setup/infotab
-  (define name "Colors Teachpack")
-  (define assume-virtual-sources #t)
-  (define install-collection "installer.ss")
-  #;(define pre-install-collection "pre-installer.ss"))
+#lang setup/infotab
+
+(define name "Colors Teachpack")
+(define assume-virtual-sources #t)
+(define install-collection "installer.ss")
+;; (define pre-install-collection "pre-installer.ss")

collects/htdch/draw/info.ss

@@ -1,5 +1,6 @@
-(module info setup/infotab
-  (define name "Draw Teachpack")
-  (define assume-virtual-sources #t)
-  (define install-collection "installer.ss")
-  #;(define pre-install-collection "pre-installer.ss"))
+#lang setup/infotab
+
+(define name "Draw Teachpack")
+(define assume-virtual-sources #t)
+(define install-collection "installer.ss")
+;; (define pre-install-collection "pre-installer.ss")

collects/htdch/geometry/info.ss

@@ -1,5 +1,6 @@
-(module info setup/infotab
-  (define name "Geometry Teachpack")
-  (define assume-virtual-sources #t)
-  (define install-collection "installer.ss")
-  #;(define pre-install-collection "pre-installer.ss"))
+#lang setup/infotab
+
+(define name "Geometry Teachpack")
+(define assume-virtual-sources #t)
+(define install-collection "installer.ss")
+;; (define pre-install-collection "pre-installer.ss")

collects/htdch/graphics/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Java Graphics Teachpack")
-  (define assume-virtual-sources #t)
-  (define install-collection "installer.ss"))
+#lang setup/infotab
+
+(define name "Java Graphics Teachpack")
+(define assume-virtual-sources #t)
+(define install-collection "installer.ss")

collects/htdch/idraw/info.ss

@@ -1,5 +1,6 @@
-(module info setup/infotab
-  (define name "Imperative Draw Teachpack")
-  (define assume-virtual-sources #t)
-  (define install-collection "installer.ss")
-  #;(define pre-install-collection "pre-installer.ss"))
+#lang setup/infotab
+
+(define name "Imperative Draw Teachpack")
+(define assume-virtual-sources #t)
+(define install-collection "installer.ss")
+;; (define pre-install-collection "pre-installer.ss")

collects/htdch/info.ss

@@ -1,9 +1,9 @@
-(module info setup/infotab
-  (define name "htdch")
-  (define compile-subcollections
-    (list
-      (list "htdch" "draw")
-      (list "htdch" "geometry")
-      (list "htdch" "colors")
-      (list "htdch" "graphics")
-      (list "htdch" "idraw"))))
+#lang setup/infotab
+
+(define name "htdch")
+(define compile-subcollections
+  '(("htdch" "draw")
+    ("htdch" "geometry")
+    ("htdch" "colors")
+    ("htdch" "graphics")
+    ("htdch" "idraw")))

collects/htdp/info.ss

@@ -1,8 +1,9 @@
-(module info setup/infotab
-  (define name "HtDP Teachpacks")
-  (define compile-omit-files
-    '("hangman-world.ss" "hangman-world-play.ss"
-      ;; TEMPORARY DISABLE THESE FILES UNTIL FIXED
-       ;; "matrix.ss" "matrix-client.ss" "matrix-invisible.ss"
-       ;; "matrix-render-sig.ss" "matrix-sig.ss" "matrix-unit.ss"
-      )))
+#lang setup/infotab
+
+(define name "HtDP Teachpacks")
+(define compile-omit-files
+  '("hangman-world.ss" "hangman-world-play.ss"
+    ;; TEMPORARY DISABLE THESE FILES UNTIL FIXED
+    ;; "matrix.ss" "matrix-client.ss" "matrix-invisible.ss"
+    ;; "matrix-render-sig.ss" "matrix-sig.ss" "matrix-unit.ss"
+    ))

collects/html/info.ss

@@ -1,9 +1,7 @@
-(module info setup/infotab
-  (define name "HTML")
-  (define scribblings '(("html.scrbl")))
-  (define compile-omit-files
-    '("dtd.ss" "dtdr.ss" "dtds.ss" "dtd-ast.ss"
-	       "case.ss" "html-structs.ss"
-	       "entity-expander.ss" "generate-code.ss"
-	       "sgml.ss")))
+#lang setup/infotab
 
+(define name "HTML")
+(define scribblings '(("html.scrbl")))
+(define compile-omit-files
+  '("dtd.ss" "dtdr.ss" "dtds.ss" "dtd-ast.ss" "case.ss" "html-structs.ss"
+    "entity-expander.ss" "generate-code.ss" "sgml.ss"))

collects/lang/info.ss

@@ -1,15 +1,16 @@
-(module info setup/infotab
-  (require (lib "string-constant.ss" "string-constants"))
-  
-  (define name "HtDP Languages")
-  (define tools (list "htdp-langs.ss"))
-  (define tool-icons (list '("htdp-icon.gif" "icons")))
-  (define tool-names (list "How to Design Programs"))
-  (define tool-urls (list "http://www.htdp.org/"))
-  
-  (define textbook-pls
-    (list (list '("htdp-icon.gif" "icons")
-                "How to Design Programs"
-                (string-constant teaching-languages)
-                (string-constant how-to-design-programs)
-                (string-constant beginning-student)))))
+#lang setup/infotab
+
+(require string-constants/string-constant)
+
+(define name "HtDP Languages")
+(define tools (list "htdp-langs.ss"))
+(define tool-icons (list '("htdp-icon.gif" "icons")))
+(define tool-names (list "How to Design Programs"))
+(define tool-urls (list "http://www.htdp.org/"))
+
+(define textbook-pls
+  (list (list '("htdp-icon.gif" "icons")
+              "How to Design Programs"
+              (string-constant teaching-languages)
+              (string-constant how-to-design-programs)
+              (string-constant beginning-student))))

collects/lang/private/info.ss

@@ -1,3 +1,3 @@
-(module info setup/infotab
-  (define name "HtDP Languages Private"))
+#lang setup/infotab
 
+(define name "HtDP Languages Private")

collects/launcher/info.ss

@@ -1,3 +1,3 @@
-(module info setup/infotab
-  (define name "Launcher"))
+#lang setup/infotab
 
+(define name "Launcher")

collects/lazy/info.ss

@@ -1,10 +1,10 @@
-(module info setup/infotab
-  (require (lib "string-constant.ss" "string-constants"))
-  (define name "Lazy Scheme")
-  (define scribblings '(("lazy.scrbl")))
-  (define drscheme-language-modules '(("lazy.ss" "lazy")))
-  (define drscheme-language-positions
-    `((,(string-constant experimental-languages) "Lazy Scheme")))
-  (define drscheme-language-numbers '((1000 -500)))
-  (define drscheme-language-one-line-summaries '("Lazy Scheme"))
-)
+#lang setup/infotab
+
+(require string-constants/string-constant)
+(define name "Lazy Scheme")
+(define scribblings '(("lazy.scrbl")))
+(define drscheme-language-modules '(("lazy.ss" "lazy")))
+(define drscheme-language-positions
+  `((,(string-constant experimental-languages) "Lazy Scheme")))
+(define drscheme-language-numbers '((1000 -500)))
+(define drscheme-language-one-line-summaries '("Lazy Scheme"))

collects/macro-debugger/info.ss

@@ -1,5 +1,5 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Macro Debugger")
-  (define tools '(["tool.ss"]))
-  (define tool-names '("Macro Stepper")))
+(define name "Macro Debugger")
+(define tools '(["tool.ss"]))
+(define tool-names '("Macro Stepper"))

collects/macro-debugger/model/info.ss

@@ -1,3 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Macro Debugger expansion model"))
+(define name "Macro Debugger expansion model")

collects/macro-debugger/syntax-browser/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "Macro Debugger - Syntax Browser"))
+#lang setup/infotab
+
+(define name "Macro Debugger - Syntax Browser")

collects/macro-debugger/view/info.ss

@@ -1,4 +1,4 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Macro Debugger view")
-  (define compile-omit-files '("browse-deriv.ss" "show-deriv.ss")))
+(define name "Macro Debugger view")
+(define compile-omit-files '("browse-deriv.ss" "show-deriv.ss"))

collects/make/info.ss

@@ -1,3 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Make"))
+(define name "Make")

collects/mred/info.ss

@@ -1,5 +1,5 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "MrEd")
-  (define version '(400))
-  (define post-install-collection "script-installer.ss"))
+(define name "MrEd")
+(define version '(400))
+(define post-install-collection "script-installer.ss")

collects/mred/lang/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "MrEd #lang"))
+#lang setup/infotab
+
+(define name "MrEd #lang")

collects/mred/private/info.ss

@@ -1,3 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "MrEd private"))
+(define name "MrEd private")

collects/mrlib/info.ss

@@ -1,3 +1,3 @@
-(module info setup/infotab
-  (define name "MrLib"))
+#lang setup/infotab
 
+(define name "MrLib")

collects/mrlib/private/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "MrLib private"))
+#lang setup/infotab
+
+(define name "MrLib private")

collects/mrlib/scribblings/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "MrLib documentation")
-  (define scribblings '(("mrlib.scrbl" (multi-page)))))
+#lang setup/infotab
+
+(define name "MrLib documentation")
+(define scribblings '(("mrlib.scrbl" (multi-page))))

collects/mysterx/info.ss

@@ -1,5 +1,4 @@
-;; info.ss for mysterx collection
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "MysterX")
-  (define post-install-collection "installer.ss"))
+(define name "MysterX")
+(define post-install-collection "installer.ss")

collects/mzcom/info.ss

@@ -1,5 +1,4 @@
-;; info.ss for mzcom collection
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "MzCOM")
-  (define post-install-collection "installer.ss"))
+(define name "MzCOM")
+(define post-install-collection "installer.ss")

collects/mzlib/info.ss

@@ -1,4 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "MzLib"))
-
+(define name "MzLib")

collects/mzlib/private/info.ss

@@ -1,4 +1,4 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "MzLib private")
-  (define compile-omit-files '("shared-body.ss")))
+(define name "MzLib private")
+(define compile-omit-files '("shared-body.ss"))

collects/mzscheme/info.ss

@@ -1,5 +1,5 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "MzScheme")
-  (define version '(400))
-  (define scribblings '(("mzscheme.scrbl" (multi-page)))))
+(define name "MzScheme")
+(define version '(400))
+(define scribblings '(("mzscheme.scrbl" (multi-page))))

collects/mzscheme/lang/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "MzScheme #lang"))
+#lang setup/infotab
+
+(define name "MzScheme #lang")

collects/mztake/info.ss

@@ -1,6 +1,6 @@
-(module info setup/infotab
-  (define name "MzTake Debugger")
-  (define tools '(("debug-tool.ss")))
-  (define tool-names '("MzTake Debugger"))
-  (define tool-icons '(("emblem-ohno.png" "mztake" "icons")))
-)
+#lang setup/infotab
+
+(define name "MzTake Debugger")
+(define tools '(("debug-tool.ss")))
+(define tool-names '("MzTake Debugger"))
+(define tool-icons '(("emblem-ohno.png" "mztake" "icons")))

collects/net/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "Net"))
+#lang setup/infotab
+
+(define name "Net")

collects/net/scribblings/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "Net documentation")
-  (define scribblings '(("net.scrbl" (multi-page)))))
+#lang setup/infotab
+
+(define name "Net documentation")
+(define scribblings '(("net.scrbl" (multi-page))))

collects/openssl/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "SSL Driver")
-  (define scribblings '(("openssl.scrbl"))))
+#lang setup/infotab
+
+(define name "SSL Driver")
+(define scribblings '(("openssl.scrbl")))

collects/parser-tools/info.ss

@@ -1,4 +1,3 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define name "Parser-tools"))
-
+(define name "Parser-tools"))

collects/parser-tools/private-lex/info.ss

@@ -1,5 +1,4 @@
+#lang setup/infotab
 
-(module info setup/infotab
-  (define compile-omit-files (list "error-tests.ss"))
-  (define name "Parser-tools private-lex"))
-
+(define compile-omit-files (list "error-tests.ss"))
+(define name "Parser-tools private-lex")

collects/parser-tools/private-yacc/info.ss

@@ -1,3 +1,3 @@
-(module info setup/infotab
-  (define name "Parser-tools private-yacc"))
+#lang setup/infotab
 
+(define name "Parser-tools private-yacc")

collects/planet/doc.txt

@@ -573,14 +573,14 @@ installation; it is a good idea to add it.
 
 An example info.ss file looks like this:
 
-(module info (lib "infotab.ss" "setup")
-  (define name "My Application")
-  (define blurb
-    (list "My application runs 60% faster on 20% less peanut "
-	  "butter. It even shows a fancy graphic!"))
-  (define primary-file "my-app.ss")
-  (define doc.txt "doc.txt")
-  (define categories '(system xml)))
+#lang setup/infotab
+(define name "My Application")
+(define blurb
+  '("My application runs 60% faster on 20% less peanut "
+    "butter. It even shows a fancy graphic!"))
+(define primary-file "my-app.ss")
+(define doc.txt "doc.txt")
+(define categories '(system xml))
 
 See the PLT mzc: MzScheme Compiler Manual, chapter 7 for more
 information on info.ss files.

collects/planet/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "PLaneT")
-  (define mzscheme-launcher-names '("planet"))
-  (define mzscheme-launcher-libraries '("planet.ss")))
+#lang setup/infotab
+
+(define name "PLaneT")
+(define mzscheme-launcher-names '("planet"))
+(define mzscheme-launcher-libraries '("planet.ss"))

collects/plot/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "Plot library")
-  (define pre-install-collection "pre-installer.ss"))
+#lang setup/infotab
+
+(define name "Plot library")
+(define pre-install-collection "pre-installer.ss")

collects/preprocessor/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "Preprocessor")
-  (define mzscheme-launcher-names     '("mzpp"        "mztext"))
-  (define mzscheme-launcher-libraries '("mzpp-run.ss" "mztext-run.ss")))
+#lang setup/infotab
+
+(define name "Preprocessor")
+(define mzscheme-launcher-names     '("mzpp"        "mztext"))
+(define mzscheme-launcher-libraries '("mzpp-run.ss" "mztext-run.ss"))

collects/profj/comb-parsers/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "ProfessorJ: parser"))
+#lang setup/infotab
+
+(define name "ProfessorJ: parser")

collects/profj/info.ss

@@ -1,19 +1,20 @@
-(module info setup/infotab
-  (require (lib "string-constant.ss" "string-constants"))
-  (define name "ProfessorJ")
-  (define tools (list (list "tool.ss") (list "test-tool.ss")))
-  (define tool-names '("ProfessorJ" "ProfessorJ Testing"))
-  (define install-collection "installer.ss")
-  (define pre-install-collection "pre-installer.ss")
-  (define compile-subcollections
-    '(("profj" "parsers")
-      ("profj" "comb-parsers")
-      ("profj" "libs" "java" "lang")
-      ("profj" "libs" "java" "io")
-      ("profj" "libs" "java" "util")))
-  (define textbook-pls
-    (list (list '("htdch-icon.png" "profj")
-                "How to Design Classes"
-                (string-constant experimental-languages)
-                "ProfessorJ"
-                "Beginner"))))
+#lang setup/infotab
+
+(require string-constants/string-constant)
+(define name "ProfessorJ")
+(define tools (list (list "tool.ss") (list "test-tool.ss")))
+(define tool-names '("ProfessorJ" "ProfessorJ Testing"))
+(define install-collection "installer.ss")
+(define pre-install-collection "pre-installer.ss")
+(define compile-subcollections
+  '(("profj" "parsers")
+    ("profj" "comb-parsers")
+    ("profj" "libs" "java" "lang")
+    ("profj" "libs" "java" "io")
+    ("profj" "libs" "java" "util")))
+(define textbook-pls
+  (list (list '("htdch-icon.png" "profj")
+              "How to Design Classes"
+              (string-constant experimental-languages)
+              "ProfessorJ"
+              "Beginner")))

collects/profj/libs/java/io/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "ProfessorJ: libs java io")
-  #;(define install-collection "installer.ss"))
+#lang setup/infotab
+
+(define name "ProfessorJ: libs java io")
+;; (define install-collection "installer.ss")

collects/profj/libs/java/lang/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "ProfessorJ: libs java lang")
-  (define assume-virtual-sources #t)
-  #;(define install-collection "installer.ss"))
+#lang setup/infotab
+
+(define name "ProfessorJ: libs java lang")
+(define assume-virtual-sources #t)
+;; (define install-collection "installer.ss")

collects/profj/libs/java/tester/info.ss

@@ -1,3 +1,4 @@
-(module info setup/infotab
-  (define name "ProfessorJ: libs java tester")
-  #;(define install-collection "installer.ss"))
+#lang setup/infotab
+
+(define name "ProfessorJ: libs java tester")
+;; (define install-collection "installer.ss")

collects/profj/libs/java/util/info.ss

@@ -1,4 +1,5 @@
-(module info setup/infotab
-  (define name "ProfessorJ: libs java util")
-  (define assume-virtual-sources #t)
-  #;(define install-collection "installer.ss"))
+#lang setup/infotab
+
+(define name "ProfessorJ: libs java util")
+(define assume-virtual-sources #t)
+;; (define install-collection "installer.ss")

collects/profj/parsers/info.ss

@@ -1,2 +1,3 @@
-(module info setup/infotab
-  (define name "ProfessorJ: parsers"))
+#lang setup/infotab
+
+(define name "ProfessorJ: parsers")