Some random ".ss" -> ".rkt"s

original commit: 939af28a4c94c283f46eb121574e4131f12cba53

collects/mzlib/a-signature.rkt

@@ -1,11 +1,11 @@
 (module a-signature mzscheme
-  (require-for-syntax "private/unit-compiletime.ss"
+  (require-for-syntax "private/unit-compiletime.rkt"
-                      "private/unit-syntax.ss")
+                      "private/unit-syntax.rkt")
-  (require "unit.ss")
+  (require "unit.rkt")
   
   (provide (rename module-begin #%module-begin)
            (all-from-except mzscheme #%module-begin)
-           (all-from "unit.ss"))
+           (all-from "unit.rkt"))
 
   (define-for-syntax (make-name s)
     (string->symbol

collects/mzlib/a-unit.rkt

@@ -1,10 +1,10 @@
 (module a-unit mzscheme
-  (require "unit.ss")
+  (require "unit.rkt")
   (require-for-syntax syntax/kerncase)
   
   (provide (rename module-begin #%module-begin)
            (all-from-except mzscheme #%module-begin)
-           (all-from "unit.ss"))
+           (all-from "unit.rkt"))
   
   (define-for-syntax (make-name s)
     (string->symbol

collects/mzlib/contract.rkt

@@ -5,23 +5,23 @@
 ;;  provide arrow contracts from our local copy
 ;;
 
-(require "private/contract-arrow.ss")
+(require "private/contract-arrow.rkt")
-(provide (all-from-out "private/contract-arrow.ss"))
+(provide (all-from-out "private/contract-arrow.rkt"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;;  provide contracts for objects
 ;;
-(require "private/contract-object.ss")
+(require "private/contract-object.rkt")
-(provide (all-from-out "private/contract-object.ss"))
+(provide (all-from-out "private/contract-object.rkt"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; old-style define/contract
 ;;
 
-(require "private/contract-define.ss")
+(require "private/contract-define.rkt")
-(provide (all-from-out "private/contract-define.ss"))
+(provide (all-from-out "private/contract-define.rkt"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -38,7 +38,7 @@
          racket/contract/private/basic-opters)
 
 (provide 
- opt/c define-opt/c ;(all-from "private/contract-opt.ss")
+ opt/c define-opt/c ;(all-from "private/contract-opt.rkt")
  (except-out (all-from-out racket/contract/private/ds)
              lazy-depth-to-look)
  

collects/mzlib/date.rkt

@@ -1,7 +1,7 @@
 
 (module date mzscheme
 
-  (require "list.ss")
+  (require "list.rkt")
 
   (provide date->string
 	  date-display-format

collects/mzlib/deflate.rkt

@@ -12,7 +12,7 @@
 
   (provide deflate gzip-through-ports gzip)
 
-  (require "unit200.ss")
+  (require "unit200.rkt")
 
   (define (vector-ref* v i)
     (let ([r (vector-ref v i)])

collects/mzlib/defmacro.rkt

@@ -1,7 +1,7 @@
 
 (module defmacro mzscheme
   (require-for-syntax syntax/stx
-		      "private/dmhelp.ss")
+		      "private/dmhelp.rkt")
 
   (provide define-macro
 	   defmacro)

collects/mzlib/etc.rkt

@@ -10,13 +10,13 @@
                build-vector
                compose)
          (rename scheme/base base-else else)
-         "kw.ss")
+         "kw.rkt")
 
 (require-for-syntax syntax/kerncase
                     syntax/stx
                     syntax/name
                     setup/main-collects
-                    "private/stxset.ss")
+                    "private/stxset.rkt")
 
 (provide boolean=? symbol=?
          identity

collects/mzlib/include.rkt

@@ -1,8 +1,8 @@
 
 (module include mzscheme
   (require-for-syntax syntax/stx
-		      "private/increader.ss"
+		      "private/increader.rkt"
-		      "cm-accomplice.ss")
+		      "cm-accomplice.rkt")
   (require mzlib/etc)
 
   (define-for-syntax (resolve-path-spec fn loc stx build-path-stx)

collects/mzlib/port.rkt

@@ -3,7 +3,7 @@
 (require (for-syntax racket/base)
          racket/contract/base
          mzlib/list
-         "private/port.ss")
+         "private/port.rkt")
 
 (define (input-port-with-progress-evts? ip)
   (and (input-port? ip)

collects/mzlib/private/contract-arr-obj-helpers.rkt

@@ -5,7 +5,7 @@
 (require (for-syntax scheme/base))
 (require (for-template scheme/base)
          (for-template racket/contract/private/guts)
-         (for-template "contract-arr-checks.ss"))
+         (for-template "contract-arr-checks.rkt"))
 
 (provide make-/proc ->/h ->*/h ->d/h ->d*/h ->r/h 
          ->pp/h ->pp-rest/h 

collects/mzlib/private/contract-arrow.rkt

@@ -2,11 +2,11 @@
 
 (require racket/contract/private/guts
          racket/contract/private/opt
-         "contract-arr-checks.ss")
+         "contract-arr-checks.rkt")
 (require (for-syntax racket/base)
          (for-syntax racket/contract/private/opt-guts)
          (for-syntax racket/contract/private/helpers)
-         (for-syntax "contract-arr-obj-helpers.ss")
+         (for-syntax "contract-arr-obj-helpers.rkt")
          (for-syntax syntax/stx)
          (for-syntax syntax/name))
 

collects/mzlib/private/contract-object.rkt

@@ -1,12 +1,12 @@
 #lang racket/base
-(require "contract-arrow.ss"
+(require "contract-arrow.rkt"
          racket/contract/private/guts
          racket/private/class-internal
-         "contract-arr-checks.ss")
+         "contract-arr-checks.rkt")
 
 (require (for-syntax racket/base
                      racket/contract/private/helpers
-                     "contract-arr-obj-helpers.ss"))
+                     "contract-arr-obj-helpers.rkt"))
 
 (provide mixin-contract
          make-mixin-contract
@@ -26,7 +26,7 @@
     (define (obj->pp-rest/proc stx) (make-/proc #t ->pp-rest/h stx))
     (define (obj-case->/proc stx) (make-case->/proc #t stx stx select/h))
     
-    ;; WARNING: select/h is copied from contract-arrow.ss. I'm not sure how
+    ;; WARNING: select/h is copied from contract-arrow.rkt. I'm not sure how
     ;; I can avoid this duplication -robby
     (define (select/h stx err-name ctxt-stx)
       (syntax-case stx (-> ->* ->d ->d* ->r ->pp ->pp-rest)

collects/mzlib/private/sigutil.rkt

@@ -1,15 +1,15 @@
 
 (module sigutil mzscheme
-  ;; Used by unitsig.ss
+  ;; Used by unitsig.rkt
   ;; (needs an overhaul, too)
 
   (require syntax/stx
 	   syntax/struct
 	   syntax/context)
 
-  (require "sigmatch.ss")
+  (require "sigmatch.rkt")
-  (require "../unit200.ss")
+  (require "../unit200.rkt")
-  (require "../list.ss")
+  (require "../list.rkt")
 
   (define-struct signature (name      ; sym
 			    src       ; sym

collects/mzlib/private/stxset.rkt

@@ -5,7 +5,7 @@
 
 (provide finish-syntax-set)
 
-;; Used in the expansion of `define-syntax-set' from "etc.ss"
+;; Used in the expansion of `define-syntax-set' from "etc.rkt"
 (define-syntax (finish-syntax-set stx)
   (syntax-case stx ()
     [(_ stx)

collects/mzlib/runtime-path.rkt

@@ -5,7 +5,7 @@
 	   setup/dirs
            scheme/list
            scheme/string
-           (only-in "private/runtime-path-table.ss" table)
+           (only-in "private/runtime-path-table.rkt" table)
            (for-syntax scheme/base))
 
   (provide define-runtime-path

collects/mzlib/struct.rkt

@@ -6,7 +6,7 @@
 	   define-struct/properties
 	   make-->vector)
   (require-for-syntax syntax/struct
-		      "list.ss"
+		      "list.rkt"
                       syntax/stx)
 
   ;; ------------------------------------------------------------

collects/mzlib/thread.rkt

@@ -1,6 +1,6 @@
 
 (module thread mzscheme
-  (require "kw.ss" "contract.ss")
+  (require "kw.rkt" "contract.rkt")
 
   (provide run-server
            consumer-thread)

collects/mzlib/unit-exptime.rkt

@@ -1,7 +1,7 @@
 #lang scheme/base
 
-(require "private/unit-syntax.ss"
+(require "private/unit-syntax.rkt"
-         "private/unit-compiletime.ss")
+         "private/unit-compiletime.rkt")
 
 (provide unit-static-signatures
          signature-members)

collects/mzlib/unit.rkt

@@ -11,18 +11,18 @@
                      scheme/struct-info
                      syntax/stx
                      unstable/location
-                     "private/unit-contract-syntax.ss"
+                     "private/unit-contract-syntax.rkt"
-                     "private/unit-compiletime.ss"
+                     "private/unit-compiletime.rkt"
-                     "private/unit-syntax.ss"))
+                     "private/unit-syntax.rkt"))
   
 (require mzlib/etc
          racket/contract/base
          scheme/stxparam
          unstable/location
-         "private/unit-contract.ss"
+         "private/unit-contract.rkt"
-         "private/unit-keywords.ss"
+         "private/unit-keywords.rkt"
-         "private/unit-runtime.ss"
+         "private/unit-runtime.rkt"
-         "private/unit-utils.ss"
+         "private/unit-utils.rkt"
          (rename-in racket/private/struct [struct struct~]))
 
 (provide define-signature-form struct struct/ctc open

collects/mzlib/unit200.rkt

@@ -6,8 +6,8 @@
 		      syntax/stx
 		      syntax/name
 		      syntax/context
-		      "list.ss"
+		      "list.rkt"
-		      "private/unitidmap.ss")
+		      "private/unitidmap.rkt")
 
   ;; ----------------------------------------------------------------------
   ;; Structures and helpers

collects/mzlib/unitsig200.rkt

@@ -5,11 +5,11 @@
 ;; compile-time information). It's in dire need of an overhaul.
 
 (module unitsig200 mzscheme
-  (require "unit200.ss")
+  (require "unit200.rkt")
-  (require "private/sigmatch.ss")
+  (require "private/sigmatch.rkt")
 
-  (require-for-syntax "private/sigutil.ss")
+  (require-for-syntax "private/sigutil.rkt")
-  (require-for-syntax "private/sigmatch.ss")
+  (require-for-syntax "private/sigmatch.rkt")
   (require-for-syntax syntax/kerncase)
 
   (define-struct signed-unit (unit imports exports))

collects/racket/private/old-ds.rkt

@@ -1,8 +1,8 @@
 
 (module old-ds '#%kernel
-  (#%require "define-struct.ss"
+  (#%require "define-struct.rkt"
              (for-syntax '#%kernel
-                         "stxcase-scheme.ss"))
+                         "stxcase-scheme.rkt"))
 
   (#%provide define-struct let-struct datum)