thread & io: code clean-ups

Remove unused `require`s and fix some indentation.

racket/src/cs/main.sps

@@ -433,14 +433,14 @@
    (or stderr-logging-arg
        (let ([spec (getenv "PLTSTDERR")])
          (if spec
-             (parse-logging-spec spec "in PLTSTDERR environment variable" #f)
+             (parse-logging-spec "stderr" spec "in PLTSTDERR environment variable" #f)
              '(error)))))
 
  (define stdout-logging
    (or stdout-logging-arg
        (let ([spec (getenv "PLTSTDOUT")])
          (if spec
-             (parse-logging-spec spec "in PLTSTDOUT environment variable" #f)
+             (parse-logging-spec "stdout" spec "in PLTSTDOUT environment variable" #f)
              '()))))
 
  (when (getenv "PLT_STATS_ON_BREAK")

racket/src/io/port/bytes-input.rkt

@@ -1,10 +1,8 @@
 #lang racket/base
 (require "../common/check.rkt"
-         "../host/thread.rkt"
          "parameter.rkt"
          "read-and-peek.rkt"
          "input-port.rkt"
-         "count.rkt"
          "progress-evt.rkt"
          "flush-output.rkt")
 

racket/src/io/port/custom-input-port.rkt

@@ -2,11 +2,9 @@
 (require "../common/check.rkt"
          "../host/thread.rkt"
          "input-port.rkt"
-         "output-port.rkt"
          "custom-port.rkt"
          "pipe.rkt"
-         "peek-via-read-port.rkt"
+         "peek-via-read-port.rkt")
-         "buffer-mode.rkt")
 
 (provide make-input-port)
 

racket/src/io/port/string-input.rkt

@@ -3,7 +3,6 @@
          "../host/thread.rkt"
          "parameter.rkt"
          "read-and-peek.rkt"
-         "port.rkt"
          "input-port.rkt"
          (submod "bytes-input.rkt" internal)
          "../string/utf-8-decode.rkt"

racket/src/thread/channel.rkt

@@ -209,6 +209,7 @@
 (define (set-sync-on-channel! sync)
   (set! sync-on-channel sync))
 
-;; 
+;; ----------------------------------------
+
 (define-values (impersonator-prop:channel-put channel-put-impersonator? channel-put-impersonator-ref)
   (make-impersonator-property 'channel-put-impersonator))

racket/src/thread/evt.rkt

@@ -1,6 +1,5 @@
 #lang racket/base
-(require racket/unsafe/ops
+(require "atomic.rkt")
-         "atomic.rkt")
 
 (provide prop:evt
          evt?

racket/src/thread/plumber.rkt

@@ -11,7 +11,7 @@
 
 (struct plumber (callbacks ; hash table of handles -> callbacks
                  weak-callbacks) ; same, but weak references
-  #:property prop:authentic #t)
+  #:authentic)
 
 (define (make-plumber)
   (plumber (make-hasheq)

racket/src/thread/sync.rkt

@@ -8,7 +8,6 @@
          (submod "channel.rkt" for-sync)
          "thread.rkt"
          (only-in (submod "thread.rkt" scheduling)
-                  current-break-enabled-cell
                   thread-descheduled?)
          "schedule-info.rkt")
 

racket/src/thread/system-idle-evt.rkt

@@ -1,7 +1,6 @@
 #lang racket/base
 (require "evt.rkt"
-         "semaphore.rkt"
+         "semaphore.rkt")
-         "internal-error.rkt")
 
 (provide (rename-out [get-system-idle-evt system-idle-evt])
 

racket/src/thread/thread-group.rkt

@@ -1,6 +1,5 @@
 #lang racket/base
-(require "engine.rkt"
+(require "check.rkt"
-         "check.rkt"
          "internal-error.rkt"
          "atomic.rkt")