Redo some of the ".ss" -> ".rkt" conversion that were undone in the last push.

collects/lang/htdp-advanced.rkt

@@ -1,10 +1,10 @@
 (module htdp-advanced scheme/base
-  (require "private/teach.ss"
+  (require "private/teach.rkt"
-	   "private/teach-module-begin.ss"
+           "private/teach-module-begin.rkt"
-	   mzlib/etc
+           mzlib/etc
-	   mzlib/list
+           mzlib/list
-	   mzlib/pretty
+           mzlib/pretty
-	   syntax/docprovide
+           syntax/docprovide
            scheme/promise
            test-engine/scheme-tests
            "posn.rkt")

collects/lang/htdp-beginner-abbr.rkt

@@ -6,8 +6,8 @@
            test-engine/scheme-tests)
 
   ;; Implements the forms:
-  (require "private/teach.ss"
+  (require "private/teach.rkt"
-	   "private/teach-module-begin.ss")
+           "private/teach-module-begin.rkt")
 
   ;; syntax:
   (provide (rename-out

collects/lang/htdp-beginner.rkt

@@ -4,15 +4,15 @@
 
 (module htdp-beginner scheme/base
   (require mzlib/etc
-	   mzlib/list
+           mzlib/list
-	   syntax/docprovide
+           syntax/docprovide
            "private/rewrite-error-message.rkt"
            (for-syntax "private/rewrite-error-message.rkt")
            (for-syntax scheme/base))
 
   ;; Implements the forms:
-  (require "private/teach.ss"
+  (require "private/teach.rkt"
-           "private/teach-module-begin.ss"
+           "private/teach-module-begin.rkt"
            test-engine/scheme-tests)
 
   ;; syntax:
@@ -55,7 +55,7 @@
 ; 	   check-property for-all ==> expect expect-within expect-member-of expect-range
 	   )
 
-  (require (for-syntax "private/firstorder.ss"))
+  (require (for-syntax "private/firstorder.rkt"))
 
 
   (define-syntax (in-rator-position-only stx)

collects/lang/htdp-intermediate.rkt

@@ -1,11 +1,11 @@
 (module htdp-intermediate scheme/base
 
-  (require "private/teach.ss"
+  (require "private/teach.rkt"
-           "private/teachprims.ss"
+           "private/teachprims.rkt"
-	   "private/teach-module-begin.ss"
+           "private/teach-module-begin.rkt"
-	   mzlib/etc
+           mzlib/etc
-	   mzlib/list
+           mzlib/list
-	   syntax/docprovide
+           syntax/docprovide
            test-engine/scheme-tests
            (for-syntax scheme/base))
 

collects/lang/htdp-langs.rkt

@@ -23,7 +23,7 @@
 
          ;; this module is shared between the drscheme's namespace (so loaded here) 
          ;; and the user's namespace in the teaching languages
-         "private/set-result.ss"
+         "private/set-result.rkt"
          "private/rewrite-error-message.rkt"
 
          "private/continuation-mark-key.rkt"

collects/lang/private/beginner-funs.rkt

@@ -2,9 +2,9 @@
   (require mzlib/etc mzlib/list mzlib/math syntax/docprovide)
 
   ;; Implements the procedures:
-  (require "teachprims.ss"
+  (require "teachprims.rkt"
-           "../posn.ss"
+           "../posn.rkt"
-           "../imageeq.ss")
+           "../imageeq.rkt")
 
   ;; procedures with documentation:
   (provide-and-document

collects/lang/private/rewrite-error-message.rkt

@@ -2,7 +2,7 @@
 
 (require mzlib/etc
          mzlib/list
-         (for-syntax "firstorder.ss"
+         (for-syntax "firstorder.rkt"
                      scheme/base))
 
 (provide rewrite-contract-error-message
@@ -22,7 +22,6 @@
 (define (exn-needs-rewriting? exn)
   (exn:fail:contract? exn))
 
-
 (define (ensure-number n-or-str)
   (if (string? n-or-str) (string->number n-or-str) n-or-str))
 

collects/lang/private/teach.rkt

@@ -56,18 +56,18 @@
 
   (require "rewrite-error-message.rkt")
 
-  (require-for-syntax "teachhelp.ss"
+  (require-for-syntax "teachhelp.rkt"
                       "rewrite-error-message.rkt"
-                      "teach-shared.ss"
+                      "teach-shared.rkt"
                       "rewrite-error-message.rkt"
-		      syntax/kerncase
+                      syntax/kerncase
-		      syntax/stx
+                      syntax/stx
-		      syntax/struct
+                      syntax/struct
-		      syntax/context
+                      syntax/context
-		      mzlib/include
+                      mzlib/include
-		      scheme/list
+                      scheme/list
-		      (rename racket/base racket:define-struct define-struct)
+                      (rename racket/base racket:define-struct define-struct)
-		      (only racket/base syntax->datum datum->syntax)
+                      (only racket/base syntax->datum datum->syntax)
                       (rename racket/base kw-app #%app)
                       racket/struct-info
                       stepper/private/shared

collects/lang/private/teachhelp.rkt

@@ -1,12 +1,12 @@
 (module teachhelp mzscheme
-  (require "firstorder.ss"
+  (require "firstorder.rkt"
            "rewrite-error-message.rkt"
            stepper/private/shared)
 
   (require-for-syntax stepper/private/shared)
 
   (provide make-undefined-check
-	   make-first-order-function)
+           make-first-order-function)
 
   (define (make-undefined-check check-proc tmp-id)
     (let ([set!-stx (datum->syntax-object check-proc 'set!)])

collects/scribblings/htdp-langs/advanced.scrbl

@@ -317,5 +317,4 @@ Like @racket[when], but the @racket[body-expression] is evaluated when the
 
 @section[#:tag "advanced-pre-defined"]{Pre-Defined Functions}
 
-@prim-op-defns['(lib "htdp-advanced.ss" "lang") #'here '()]
+@prim-op-defns['(lib "htdp-advanced.rkt" "lang") #'here '()]
-

collects/scribblings/htdp-langs/beginner-abbr.scrbl

@@ -136,5 +136,4 @@ also be written with @racket[unquote-splicing].}
 
 @section[#:tag "beginner-abbr-pre-defined"]{Pre-defined Functions}
 
-@prim-op-defns['(lib "htdp-beginner-abbr.ss" "lang") #'here '()]
+@prim-op-defns['(lib "htdp-beginner-abbr.rkt" "lang") #'here '()]
-

collects/scribblings/htdp-langs/intermediate-lambda.scrbl

@@ -113,5 +113,4 @@ the function.}
 
 @section[#:tag "intm-w-lambda-pre-defined"]{Pre-defined Functions}
 
-@prim-op-defns['(lib "htdp-intermediate-lambda.ss" "lang") #'here '()]
+@prim-op-defns['(lib "htdp-intermediate-lambda.rkt" "lang") #'here '()]
-

collects/scribblings/htdp-langs/prim-ops.rkt

@@ -1,6 +1,6 @@
 #reader scribble/reader
 #lang racket/base
-(require "common.ss"
+(require "common.rkt"
          scribble/decode
          scribble/struct
          scribble/racket

collects/scribblings/htdp-langs/std-grammar.rkt

@@ -1,6 +1,6 @@
 #reader scribble/reader
 #lang racket/base
-(require "common.ss"
+(require "common.rkt"
          scribble/decode)
 
 (provide prim-nonterms
@@ -18,8 +18,8 @@
    form ...
    [test-case @#,racket[(check-expect expression expression)]
               @#,racket[(check-within expression expression expression)]
-	      @#,racket[(check-member-of expression expression (... ...))]
+              @#,racket[(check-member-of expression expression (... ...))]
-	      @#,racket[(check-range expression expression expression)]
+              @#,racket[(check-range expression expression expression)]
               @#,racket[(check-error expression expression)]
               @#,racket[(check-error expression)]]
    (...