Switch the teachpack wrappers to `racket/base'.

(I think that the change to `teachpack/htdp/dir' is fine too, looks like
the previous code is dealing with the old restriction of not requiring a
binding that conflicts with the language bindings.)

collects/teachpack/htdp/arrow-gui.ss

@@ -1,3 +1,3 @@
-#cs(module arrow-gui mzscheme
-  (require htdp/arrow-gui)
-  (provide (all-from htdp/arrow-gui)))
+#lang racket/base
+(require htdp/arrow-gui)
+(provide (all-from-out htdp/arrow-gui))

collects/teachpack/htdp/arrow.ss

@@ -1,3 +1,3 @@
-#cs(module arrow mzscheme
-  (require htdp/arrow)
-  (provide (all-from htdp/arrow)))
+#lang racket/base
+(require htdp/arrow)
+(provide (all-from-out htdp/arrow))

collects/teachpack/htdp/convert.ss

@@ -1,4 +1,3 @@
-#lang mzscheme
-
+#lang racket/base
 (require htdp/convert)
-(provide (all-from htdp/convert))
+(provide (all-from-out htdp/convert))

collects/teachpack/htdp/dir.ss

@@ -1,5 +1,3 @@
-#cs(module dir mzscheme
-  (require (all-except htdp/dir file-size)
-	   (rename htdp/dir file--size file-size))
-  (provide (rename file--size file-size)
-	   (all-from-except htdp/dir file--size)))
+#lang racket/base
+(require htdp/dir)
+(provide (all-from-out htdp/dir))

collects/teachpack/htdp/docs.ss

@@ -1,3 +1,3 @@
-#cs(module docs mzscheme
-  (require htdp/docs)
-  (provide (all-from htdp/docs)))
+#lang racket/base
+(require htdp/docs)
+(provide (all-from-out htdp/docs))

collects/teachpack/htdp/draw.ss

@@ -1,3 +1,3 @@
-#cs(module draw mzscheme
-  (require htdp/draw)
-  (provide (all-from htdp/draw)))
+#lang racket/base
+(require htdp/draw)
+(provide (all-from-out htdp/draw))

collects/teachpack/htdp/elevator.ss

@@ -1,3 +1,3 @@
-#cs(module elevator mzscheme
-  (require htdp/elevator)
-  (provide (all-from htdp/elevator)))
+#lang racket/base
+(require htdp/elevator)
+(provide (all-from-out htdp/elevator))

collects/teachpack/htdp/graphing.ss

@@ -1,3 +1,3 @@
-#cs(module graphing mzscheme
-  (require htdp/graphing)
-  (provide (all-from htdp/graphing)))
+#lang racket/base
+(require htdp/graphing)
+(provide (all-from-out htdp/graphing))

collects/teachpack/htdp/guess-gui.ss

@@ -1,3 +1,3 @@
-#cs(module guess-gui mzscheme
-  (require htdp/guess-gui)
-  (provide (all-from htdp/guess-gui)))
+#lang racket/base
+(require htdp/guess-gui)
+(provide (all-from-out htdp/guess-gui))

collects/teachpack/htdp/guess.ss

@@ -1,3 +1,3 @@
-#cs(module guess mzscheme
-  (require htdp/guess)
-  (provide (all-from htdp/guess)))
+#lang racket/base
+(require htdp/guess)
+(provide (all-from-out htdp/guess))

collects/teachpack/htdp/gui.ss

@@ -1,3 +1,3 @@
-#cs(module gui mzscheme
-  (require htdp/gui)
-  (provide (all-from htdp/gui)))
+#lang racket/base
+(require htdp/gui)
+(provide (all-from-out htdp/gui))

collects/teachpack/htdp/hangman.ss

@@ -1,3 +1,3 @@
-#cs(module hangman mzscheme
-  (provide (all-from htdp/hangman))
-  (require htdp/hangman))
+#lang racket/base
+(require htdp/hangman)
+(provide (all-from-out htdp/hangman))

collects/teachpack/htdp/image.ss

@@ -1,4 +1,3 @@
-(module image mzscheme
-  (require htdp/image lang/prim)
-  (provide (all-from htdp/image))
-)
+#lang racket/base
+(require htdp/image lang/prim)
+(provide (all-from-out htdp/image))

collects/teachpack/htdp/lkup-gui.ss

@@ -1,3 +1,3 @@
-#cs(module lkup-gui mzscheme
-  (require htdp/lkup-gui)
-  (provide (all-from htdp/lkup-gui)))
+#lang racket/base
+(require htdp/lkup-gui)
+(provide (all-from-out htdp/lkup-gui))

collects/teachpack/htdp/master.ss

@@ -1,3 +1,3 @@
-#cs(module master mzscheme
-  (require htdp/master)
-  (provide (all-from htdp/master)))
+#lang racket/base
+(require htdp/master)
+(provide (all-from-out htdp/master))

collects/teachpack/htdp/matrix.ss

@@ -1,3 +1,3 @@
-(module matrix mzscheme
-  (provide (all-from htdp/matrix))
-  (require htdp/matrix))
+#lang racket/base
+(require htdp/matrix)
+(provide (all-from-out htdp/matrix))

collects/teachpack/htdp/servlet.ss

@@ -1,3 +1,3 @@
-#cs(module servlet mzscheme
-  (require htdp/servlet)
-  (provide (all-from htdp/servlet)))
+#lang racket/base
+(require htdp/servlet)
+(provide (all-from-out htdp/servlet))

collects/teachpack/htdp/servlet2.ss

@@ -1,3 +1,3 @@
-#cs(module servlet2 mzscheme
-  (require htdp/servlet2)
-  (provide (all-from htdp/servlet2)))
+#lang racket/base
+(require htdp/servlet2)
+(provide (all-from-out htdp/servlet2))

collects/teachpack/htdp/show-queen.ss

@@ -1,3 +1,3 @@
-(module show-queen mzscheme
-  (require htdp/show-queen)
-  (provide (all-from htdp/show-queen)))
+#lang racket/base
+(require htdp/show-queen)
+(provide (all-from-out htdp/show-queen))

collects/teachpack/htdp/testing.ss

@@ -1,3 +1,3 @@
-#lang racket 
+#lang racket/base
 (require htdp/testing)
 (provide (all-from-out htdp/testing))

collects/teachpack/htdp/world.ss

@@ -1,3 +1,3 @@
-(module world mzscheme
-  (provide (all-from htdp/world))
-  (require htdp/world))
+#lang racket/base
+(require htdp/world)
+(provide (all-from-out htdp/world))