diff --git a/pkgs/racket-test-core/tests/racket/port.rktl b/pkgs/racket-test-core/tests/racket/port.rktl
index 8efbe9c048..a01c444733 100644
--- a/pkgs/racket-test-core/tests/racket/port.rktl
+++ b/pkgs/racket-test-core/tests/racket/port.rktl
@@ -968,6 +968,12 @@
   (test #f file-position* p2)
   (err/rt-test (file-position p2) exn:fail:filesystem?))
 
+(let ([i (open-input-bytes #"")])
+  (test i sync/timeout 0 i)
+  (test i sync/timeout #f i)
+  (test #t byte-ready? i)
+  (test #t char-ready? i))
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Text mode, file positions, and buffers
 
diff --git a/racket/src/ChezScheme/c/gc.c b/racket/src/ChezScheme/c/gc.c
index 8b12da9a93..e726a161a5 100644
--- a/racket/src/ChezScheme/c/gc.c
+++ b/racket/src/ChezScheme/c/gc.c
@@ -1769,10 +1769,10 @@ ptr GCENTRY(ptr tc_in, ptr count_roots_ls) {
     }                                             \
   } while (0)
 
-#if 1
+#if 0
 # define COUNT_SWEPT_BYTES(start, end) num_swept_bytes += ((uptr)TO_PTR(end) - (uptr)TO_PTR(start))
 #else
-# define COUNT_SWEPT_BYTES(start, end) do { } while (0);
+# define COUNT_SWEPT_BYTES(start, end) do { } while (0)
 #endif
 
 #ifdef ENABLE_PARALLEL
diff --git a/racket/src/cs/schemified/io.scm b/racket/src/cs/schemified/io.scm
index 508c4ed9f3..a5c2e87b13 100644
--- a/racket/src/cs/schemified/io.scm
+++ b/racket/src/cs/schemified/io.scm
@@ -19620,12 +19620,7 @@
                                (fx+ at-pos_0 amt_0)))
                             amt_0))
                         eof)))))))))
-       (|#%name|
-        byte-ready
-        (lambda (this-id_0 work-done!153_0)
-          (begin
-            (let ((app_2 (|#%app| temp3.1$1 this-id_0)))
-              (< app_2 (direct-end (core-port-buffer this-id_0)))))))
+       (|#%name| byte-ready (lambda (this-id_0 work-done!153_0) (begin #t)))
        (|#%name|
         get-progress-evt
         (lambda (this-id_0)
@@ -19712,7 +19707,7 @@
    #f
    3
    7))
-(define effect2101
+(define effect2097
   (struct-type-install-properties!
    struct:bytes-output-port
    'bytes-output-port
@@ -19756,7 +19751,7 @@
   (|#%name|
    set-bytes-output-port-max-pos!
    (record-mutator struct:bytes-output-port 2)))
-(define effect2102
+(define effect2098
   (begin
     (register-struct-constructor! create-bytes-output-port)
     (register-struct-predicate! bytes-output-port?)
@@ -19794,7 +19789,7 @@
    #f
    2
    3))
-(define effect2104
+(define effect2100
   (struct-type-install-properties!
    struct:bytes-output-port-methods.1
    'bytes-output-port-methods
@@ -19815,7 +19810,7 @@
      struct:bytes-output-port-methods.1
      #f
      #f))))
-(define bytes-output-port-methods?.12103
+(define bytes-output-port-methods?.12099
   (|#%name|
    bytes-output-port-methods?
    (record-predicate struct:bytes-output-port-methods.1)))
@@ -19823,13 +19818,13 @@
   (|#%name|
    bytes-output-port-methods?
    (lambda (v)
-     (if (bytes-output-port-methods?.12103 v)
+     (if (bytes-output-port-methods?.12099 v)
        #t
        ($value
         (if (impersonator? v)
-          (bytes-output-port-methods?.12103 (impersonator-val v))
+          (bytes-output-port-methods?.12099 (impersonator-val v))
           #f))))))
-(define bytes-output-port-methods-get-length.12105
+(define bytes-output-port-methods-get-length.12101
   (|#%name|
    bytes-output-port-methods-get-length
    (record-accessor struct:bytes-output-port-methods.1 0)))
@@ -19837,17 +19832,17 @@
   (|#%name|
    bytes-output-port-methods-get-length
    (lambda (s)
-     (if (bytes-output-port-methods?.12103 s)
-       (bytes-output-port-methods-get-length.12105 s)
+     (if (bytes-output-port-methods?.12099 s)
+       (bytes-output-port-methods-get-length.12101 s)
        ($value
         (impersonate-ref
-         bytes-output-port-methods-get-length.12105
+         bytes-output-port-methods-get-length.12101
          struct:bytes-output-port-methods.1
          0
          s
          'bytes-output-port-methods
          'get-length))))))
-(define bytes-output-port-methods-get-bytes.12106
+(define bytes-output-port-methods-get-bytes.12102
   (|#%name|
    bytes-output-port-methods-get-bytes
    (record-accessor struct:bytes-output-port-methods.1 1)))
@@ -19855,17 +19850,17 @@
   (|#%name|
    bytes-output-port-methods-get-bytes
    (lambda (s)
-     (if (bytes-output-port-methods?.12103 s)
-       (bytes-output-port-methods-get-bytes.12106 s)
+     (if (bytes-output-port-methods?.12099 s)
+       (bytes-output-port-methods-get-bytes.12102 s)
        ($value
         (impersonate-ref
-         bytes-output-port-methods-get-bytes.12106
+         bytes-output-port-methods-get-bytes.12102
          struct:bytes-output-port-methods.1
          1
          s
          'bytes-output-port-methods
          'get-bytes))))))
-(define effect2107
+(define effect2103
   (begin
     (register-struct-constructor! bytes-output-port-methods8.1)
     (register-struct-predicate! bytes-output-port-methods?.1)
@@ -20259,7 +20254,7 @@
    #f
    2
    3))
-(define effect2159
+(define effect2155
   (struct-type-install-properties!
    struct:max-output-port
    'max-output-port
@@ -20291,7 +20286,7 @@
   (|#%name|
    set-max-output-port-max-length!
    (record-mutator struct:max-output-port 1)))
-(define effect2160
+(define effect2156
   (begin
     (register-struct-constructor! create-max-output-port)
     (register-struct-predicate! max-output-port?)
@@ -20321,7 +20316,7 @@
    #f
    0
    0))
-(define effect2162
+(define effect2158
   (struct-type-install-properties!
    struct:max-output-port-methods.1
    'max-output-port-methods
@@ -20342,7 +20337,7 @@
      struct:max-output-port-methods.1
      #f
      #f))))
-(define max-output-port-methods?.12161
+(define max-output-port-methods?.12157
   (|#%name|
    max-output-port-methods?
    (record-predicate struct:max-output-port-methods.1)))
@@ -20350,13 +20345,13 @@
   (|#%name|
    max-output-port-methods?
    (lambda (v)
-     (if (max-output-port-methods?.12161 v)
+     (if (max-output-port-methods?.12157 v)
        #t
        ($value
         (if (impersonator? v)
-          (max-output-port-methods?.12161 (impersonator-val v))
+          (max-output-port-methods?.12157 (impersonator-val v))
           #f))))))
-(define effect2163
+(define effect2159
   (begin
     (register-struct-constructor! max-output-port-methods1.1)
     (register-struct-predicate! max-output-port-methods?.1)
@@ -21257,7 +21252,7 @@
    #f
    0
    0))
-(define effect2257
+(define effect2253
   (struct-type-install-properties!
    struct:nowhere-output-port
    'nowhere-output-port
@@ -21279,7 +21274,7 @@
   (|#%name|
    nowhere-output-port?
    (record-predicate struct:nowhere-output-port)))
-(define effect2258
+(define effect2254
   (begin
     (register-struct-constructor! create-nowhere-output-port)
     (register-struct-predicate! nowhere-output-port?)
@@ -21293,7 +21288,7 @@
    #f
    0
    0))
-(define effect2260
+(define effect2256
   (struct-type-install-properties!
    struct:nowhere-output-port-methods.1
    'nowhere-output-port-methods
@@ -21314,7 +21309,7 @@
      struct:nowhere-output-port-methods.1
      #f
      #f))))
-(define nowhere-output-port-methods?.12259
+(define nowhere-output-port-methods?.12255
   (|#%name|
    nowhere-output-port-methods?
    (record-predicate struct:nowhere-output-port-methods.1)))
@@ -21322,13 +21317,13 @@
   (|#%name|
    nowhere-output-port-methods?
    (lambda (v)
-     (if (nowhere-output-port-methods?.12259 v)
+     (if (nowhere-output-port-methods?.12255 v)
        #t
        ($value
         (if (impersonator? v)
-          (nowhere-output-port-methods?.12259 (impersonator-val v))
+          (nowhere-output-port-methods?.12255 (impersonator-val v))
           #f))))))
-(define effect2261
+(define effect2257
   (begin
     (register-struct-constructor! nowhere-output-port-methods1.1)
     (register-struct-predicate! nowhere-output-port-methods?.1)
@@ -21603,7 +21598,7 @@
       (quick-no-graph?_0 config_0 mode_0 print-graph?_0 v_0 fuel_0))))
 (define struct:as-constructor
   (make-record-type-descriptor* 'as-constructor #f #f #f #f 1 1))
-(define effect2290
+(define effect2286
   (struct-type-install-properties!
    struct:as-constructor
    'as-constructor
@@ -21621,35 +21616,35 @@
    as-constructor
    (record-constructor
     (make-record-constructor-descriptor struct:as-constructor #f #f))))
-(define as-constructor?2289
+(define as-constructor?2285
   (|#%name| as-constructor? (record-predicate struct:as-constructor)))
 (define as-constructor?
   (|#%name|
    as-constructor?
    (lambda (v)
-     (if (as-constructor?2289 v)
+     (if (as-constructor?2285 v)
        #t
        ($value
         (if (impersonator? v)
-          (as-constructor?2289 (impersonator-val v))
+          (as-constructor?2285 (impersonator-val v))
           #f))))))
-(define as-constructor-tag2291
+(define as-constructor-tag2287
   (|#%name| as-constructor-tag (record-accessor struct:as-constructor 0)))
 (define as-constructor-tag
   (|#%name|
    as-constructor-tag
    (lambda (s)
-     (if (as-constructor?2289 s)
-       (as-constructor-tag2291 s)
+     (if (as-constructor?2285 s)
+       (as-constructor-tag2287 s)
        ($value
         (impersonate-ref
-         as-constructor-tag2291
+         as-constructor-tag2287
          struct:as-constructor
          0
          s
          'as-constructor
          'tag))))))
-(define effect2292
+(define effect2288
   (begin
     (register-struct-constructor! as-constructor1.1)
     (register-struct-predicate! as-constructor?)
@@ -24895,7 +24890,7 @@
             #f))))))
 (define struct:starting-point
   (make-record-type-descriptor* 'starting-point #f #f #f #f 7 127))
-(define effect2628
+(define effect2624
   (struct-type-install-properties!
    struct:starting-point
    'starting-point
@@ -24913,83 +24908,83 @@
    starting-point
    (record-constructor
     (make-record-constructor-descriptor struct:starting-point #f #f))))
-(define starting-point?2627
+(define starting-point?2623
   (|#%name| starting-point? (record-predicate struct:starting-point)))
 (define starting-point?
   (|#%name|
    starting-point?
    (lambda (v)
-     (if (starting-point?2627 v)
+     (if (starting-point?2623 v)
        #t
        ($value
         (if (impersonator? v)
-          (starting-point?2627 (impersonator-val v))
+          (starting-point?2623 (impersonator-val v))
           #f))))))
-(define starting-point-kind2629
+(define starting-point-kind2625
   (|#%name| starting-point-kind (record-accessor struct:starting-point 0)))
 (define starting-point-kind
   (|#%name|
    starting-point-kind
    (lambda (s)
-     (if (starting-point?2627 s)
-       (starting-point-kind2629 s)
+     (if (starting-point?2623 s)
+       (starting-point-kind2625 s)
        ($value
         (impersonate-ref
-         starting-point-kind2629
+         starting-point-kind2625
          struct:starting-point
          0
          s
          'starting-point
          'kind))))))
-(define starting-point-bstr2630
+(define starting-point-bstr2626
   (|#%name| starting-point-bstr (record-accessor struct:starting-point 1)))
 (define starting-point-bstr
   (|#%name|
    starting-point-bstr
    (lambda (s)
-     (if (starting-point?2627 s)
-       (starting-point-bstr2630 s)
+     (if (starting-point?2623 s)
+       (starting-point-bstr2626 s)
        ($value
         (impersonate-ref
-         starting-point-bstr2630
+         starting-point-bstr2626
          struct:starting-point
          1
          s
          'starting-point
          'bstr))))))
-(define starting-point-len2631
+(define starting-point-len2627
   (|#%name| starting-point-len (record-accessor struct:starting-point 2)))
 (define starting-point-len
   (|#%name|
    starting-point-len
    (lambda (s)
-     (if (starting-point?2627 s)
-       (starting-point-len2631 s)
+     (if (starting-point?2623 s)
+       (starting-point-len2627 s)
        ($value
         (impersonate-ref
-         starting-point-len2631
+         starting-point-len2627
          struct:starting-point
          2
          s
          'starting-point
          'len))))))
-(define starting-point-orig-len2632
+(define starting-point-orig-len2628
   (|#%name| starting-point-orig-len (record-accessor struct:starting-point 3)))
 (define starting-point-orig-len
   (|#%name|
    starting-point-orig-len
    (lambda (s)
-     (if (starting-point?2627 s)
-       (starting-point-orig-len2632 s)
+     (if (starting-point?2623 s)
+       (starting-point-orig-len2628 s)
        ($value
         (impersonate-ref
-         starting-point-orig-len2632
+         starting-point-orig-len2628
          struct:starting-point
          3
          s
          'starting-point
          'orig-len))))))
-(define starting-point-extra-sep2633
+(define starting-point-extra-sep2629
   (|#%name|
    starting-point-extra-sep
    (record-accessor struct:starting-point 4)))
@@ -24997,49 +24992,49 @@
   (|#%name|
    starting-point-extra-sep
    (lambda (s)
-     (if (starting-point?2627 s)
-       (starting-point-extra-sep2633 s)
+     (if (starting-point?2623 s)
+       (starting-point-extra-sep2629 s)
        ($value
         (impersonate-ref
-         starting-point-extra-sep2633
+         starting-point-extra-sep2629
          struct:starting-point
          4
          s
          'starting-point
          'extra-sep))))))
-(define starting-point-add-ups?2634
+(define starting-point-add-ups?2630
   (|#%name| starting-point-add-ups? (record-accessor struct:starting-point 5)))
 (define starting-point-add-ups?
   (|#%name|
    starting-point-add-ups?
    (lambda (s)
-     (if (starting-point?2627 s)
-       (starting-point-add-ups?2634 s)
+     (if (starting-point?2623 s)
+       (starting-point-add-ups?2630 s)
        ($value
         (impersonate-ref
-         starting-point-add-ups?2634
+         starting-point-add-ups?2630
          struct:starting-point
          5
          s
          'starting-point
          'add-ups?))))))
-(define starting-point-drive?2635
+(define starting-point-drive?2631
   (|#%name| starting-point-drive? (record-accessor struct:starting-point 6)))
 (define starting-point-drive?
   (|#%name|
    starting-point-drive?
    (lambda (s)
-     (if (starting-point?2627 s)
-       (starting-point-drive?2635 s)
+     (if (starting-point?2623 s)
+       (starting-point-drive?2631 s)
        ($value
         (impersonate-ref
-         starting-point-drive?2635
+         starting-point-drive?2631
          struct:starting-point
          6
          s
          'starting-point
          'drive?))))))
-(define effect2636
+(define effect2632
   (begin
     (register-struct-constructor! starting-point7.1)
     (register-struct-predicate! starting-point?)
@@ -25990,7 +25985,7 @@
   (lambda (v_0) (if (fixnum? v_0) (<= 0 v_0 65535) #f)))
 (define struct:security-guard
   (make-record-type-descriptor* 'security-guard #f #f #f #f 4 15))
-(define effect2768
+(define effect2764
   (struct-type-install-properties!
    struct:security-guard
    'security-guard
@@ -26008,35 +26003,35 @@
    security-guard
    (record-constructor
     (make-record-constructor-descriptor struct:security-guard #f #f))))
-(define 1/security-guard?2767
+(define 1/security-guard?2763
   (|#%name| security-guard? (record-predicate struct:security-guard)))
 (define 1/security-guard?
   (|#%name|
    security-guard?
    (lambda (v)
-     (if (1/security-guard?2767 v)
+     (if (1/security-guard?2763 v)
        #t
        ($value
         (if (impersonator? v)
-          (1/security-guard?2767 (impersonator-val v))
+          (1/security-guard?2763 (impersonator-val v))
           #f))))))
-(define security-guard-parent2769
+(define security-guard-parent2765
   (|#%name| security-guard-parent (record-accessor struct:security-guard 0)))
 (define security-guard-parent
   (|#%name|
    security-guard-parent
    (lambda (s)
-     (if (1/security-guard?2767 s)
-       (security-guard-parent2769 s)
+     (if (1/security-guard?2763 s)
+       (security-guard-parent2765 s)
        ($value
         (impersonate-ref
-         security-guard-parent2769
+         security-guard-parent2765
          struct:security-guard
          0
          s
          'security-guard
          'parent))))))
-(define security-guard-file-guard2770
+(define security-guard-file-guard2766
   (|#%name|
    security-guard-file-guard
    (record-accessor struct:security-guard 1)))
@@ -26044,17 +26039,17 @@
   (|#%name|
    security-guard-file-guard
    (lambda (s)
-     (if (1/security-guard?2767 s)
-       (security-guard-file-guard2770 s)
+     (if (1/security-guard?2763 s)
+       (security-guard-file-guard2766 s)
        ($value
         (impersonate-ref
-         security-guard-file-guard2770
+         security-guard-file-guard2766
          struct:security-guard
          1
          s
          'security-guard
          'file-guard))))))
-(define security-guard-network-guard2771
+(define security-guard-network-guard2767
   (|#%name|
    security-guard-network-guard
    (record-accessor struct:security-guard 2)))
@@ -26062,17 +26057,17 @@
   (|#%name|
    security-guard-network-guard
    (lambda (s)
-     (if (1/security-guard?2767 s)
-       (security-guard-network-guard2771 s)
+     (if (1/security-guard?2763 s)
+       (security-guard-network-guard2767 s)
        ($value
         (impersonate-ref
-         security-guard-network-guard2771
+         security-guard-network-guard2767
          struct:security-guard
          2
          s
          'security-guard
          'network-guard))))))
-(define security-guard-link-guard2772
+(define security-guard-link-guard2768
   (|#%name|
    security-guard-link-guard
    (record-accessor struct:security-guard 3)))
@@ -26080,17 +26075,17 @@
   (|#%name|
    security-guard-link-guard
    (lambda (s)
-     (if (1/security-guard?2767 s)
-       (security-guard-link-guard2772 s)
+     (if (1/security-guard?2763 s)
+       (security-guard-link-guard2768 s)
        ($value
         (impersonate-ref
-         security-guard-link-guard2772
+         security-guard-link-guard2768
          struct:security-guard
          3
          s
          'security-guard
          'link-guard))))))
-(define effect2773
+(define effect2769
   (begin
     (register-struct-constructor! security-guard1.1)
     (register-struct-predicate! 1/security-guard?)
@@ -29219,7 +29214,7 @@
                o_0
                quote-depth34_0))))))))
    'global-port-print-handler))
-(define effect2922
+(define effect2918
   (begin
     (void
      (install-do-global-print!
@@ -31036,7 +31031,7 @@
       ((p-in_0) (begin (simplify-path_0 p-in_0 #t)))
       ((p-in_0 use-filesystem?1_0)
        (simplify-path_0 p-in_0 use-filesystem?1_0))))))
-(define effect3152
+(define effect3148
   (begin (void (set! simplify-path/dl 1/simplify-path)) (void)))
 (define simple?
   (letrec ((is-a-sep?_0
@@ -31438,7 +31433,7 @@
       k_0)))
 (define struct:environment-variables
   (make-record-type-descriptor* 'environment-variables #f #f #f #f 1 1))
-(define effect3194
+(define effect3190
   (struct-type-install-properties!
    struct:environment-variables
    'environment-variables
@@ -31468,7 +31463,7 @@
   (|#%name|
    set-environment-variables-ht!
    (record-mutator struct:environment-variables 0)))
-(define effect3195
+(define effect3191
   (begin
     (register-struct-constructor! environment-variables1.1)
     (register-struct-predicate! 1/environment-variables?)
@@ -31967,7 +31962,7 @@
     (begin
       (current-directory$1 orig-dir)
       (current-directory-for-user$1 orig-dir))))
-(define effect3243 (begin (void (init-current-directory!)) (void)))
+(define effect3239 (begin (void (init-current-directory!)) (void)))
 (define 1/path->complete-path
   (|#%name|
    path->complete-path
@@ -33158,7 +33153,7 @@
                         len_0)
                        (1/get-output-string o_0)))))))))
     (lambda () (error-value->string-handler procz1))))
-(define effect3422
+(define effect3418
   (begin (void (install-error-value->string-handler!)) (void)))
 (define 1/srcloc->string
   (|#%name|
@@ -33181,7 +33176,7 @@
   (lambda (p_0) (let ((dir_0 (current-directory-for-user$1))) p_0)))
 (define struct:logger
   (make-record-type-descriptor* 'logger #f #f #f #f 11 2047))
-(define effect3424
+(define effect3420
   (struct-type-install-properties!
    struct:logger
    'logger
@@ -33199,192 +33194,192 @@
    logger
    (record-constructor
     (make-record-constructor-descriptor struct:logger #f #f))))
-(define 1/logger?3423 (|#%name| logger? (record-predicate struct:logger)))
+(define 1/logger?3419 (|#%name| logger? (record-predicate struct:logger)))
 (define 1/logger?
   (|#%name|
    logger?
    (lambda (v)
-     (if (1/logger?3423 v)
+     (if (1/logger?3419 v)
        #t
        ($value
-        (if (impersonator? v) (1/logger?3423 (impersonator-val v)) #f))))))
-(define logger-topic3425
+        (if (impersonator? v) (1/logger?3419 (impersonator-val v)) #f))))))
+(define logger-topic3421
   (|#%name| logger-topic (record-accessor struct:logger 0)))
 (define logger-topic
   (|#%name|
    logger-topic
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-topic3425 s)
+     (if (1/logger?3419 s)
+       (logger-topic3421 s)
        ($value
         (impersonate-ref
-         logger-topic3425
+         logger-topic3421
          struct:logger
          0
          s
          'logger
          'topic))))))
-(define logger-parent3426
+(define logger-parent3422
   (|#%name| logger-parent (record-accessor struct:logger 1)))
 (define logger-parent
   (|#%name|
    logger-parent
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-parent3426 s)
+     (if (1/logger?3419 s)
+       (logger-parent3422 s)
        ($value
         (impersonate-ref
-         logger-parent3426
+         logger-parent3422
          struct:logger
          1
          s
          'logger
          'parent))))))
-(define logger-propagate-filters3427
+(define logger-propagate-filters3423
   (|#%name| logger-propagate-filters (record-accessor struct:logger 2)))
 (define logger-propagate-filters
   (|#%name|
    logger-propagate-filters
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-propagate-filters3427 s)
+     (if (1/logger?3419 s)
+       (logger-propagate-filters3423 s)
        ($value
         (impersonate-ref
-         logger-propagate-filters3427
+         logger-propagate-filters3423
          struct:logger
          2
          s
          'logger
          'propagate-filters))))))
-(define logger-receiver-box+backrefs3428
+(define logger-receiver-box+backrefs3424
   (|#%name| logger-receiver-box+backrefs (record-accessor struct:logger 3)))
 (define logger-receiver-box+backrefs
   (|#%name|
    logger-receiver-box+backrefs
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-receiver-box+backrefs3428 s)
+     (if (1/logger?3419 s)
+       (logger-receiver-box+backrefs3424 s)
        ($value
         (impersonate-ref
-         logger-receiver-box+backrefs3428
+         logger-receiver-box+backrefs3424
          struct:logger
          3
          s
          'logger
          'receiver-box+backrefs))))))
-(define logger-prune-counter3429
+(define logger-prune-counter3425
   (|#%name| logger-prune-counter (record-accessor struct:logger 4)))
 (define logger-prune-counter
   (|#%name|
    logger-prune-counter
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-prune-counter3429 s)
+     (if (1/logger?3419 s)
+       (logger-prune-counter3425 s)
        ($value
         (impersonate-ref
-         logger-prune-counter3429
+         logger-prune-counter3425
          struct:logger
          4
          s
          'logger
          'prune-counter))))))
-(define logger-permanent-receivers3430
+(define logger-permanent-receivers3426
   (|#%name| logger-permanent-receivers (record-accessor struct:logger 5)))
 (define logger-permanent-receivers
   (|#%name|
    logger-permanent-receivers
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-permanent-receivers3430 s)
+     (if (1/logger?3419 s)
+       (logger-permanent-receivers3426 s)
        ($value
         (impersonate-ref
-         logger-permanent-receivers3430
+         logger-permanent-receivers3426
          struct:logger
          5
          s
          'logger
          'permanent-receivers))))))
-(define logger-max-receiver-level3431
+(define logger-max-receiver-level3427
   (|#%name| logger-max-receiver-level (record-accessor struct:logger 6)))
 (define logger-max-receiver-level
   (|#%name|
    logger-max-receiver-level
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-max-receiver-level3431 s)
+     (if (1/logger?3419 s)
+       (logger-max-receiver-level3427 s)
        ($value
         (impersonate-ref
-         logger-max-receiver-level3431
+         logger-max-receiver-level3427
          struct:logger
          6
          s
          'logger
          'max-receiver-level))))))
-(define logger-topic-level-cache3432
+(define logger-topic-level-cache3428
   (|#%name| logger-topic-level-cache (record-accessor struct:logger 7)))
 (define logger-topic-level-cache
   (|#%name|
    logger-topic-level-cache
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-topic-level-cache3432 s)
+     (if (1/logger?3419 s)
+       (logger-topic-level-cache3428 s)
        ($value
         (impersonate-ref
-         logger-topic-level-cache3432
+         logger-topic-level-cache3428
          struct:logger
          7
          s
          'logger
          'topic-level-cache))))))
-(define logger-local-level-timestamp3433
+(define logger-local-level-timestamp3429
   (|#%name| logger-local-level-timestamp (record-accessor struct:logger 8)))
 (define logger-local-level-timestamp
   (|#%name|
    logger-local-level-timestamp
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-local-level-timestamp3433 s)
+     (if (1/logger?3419 s)
+       (logger-local-level-timestamp3429 s)
        ($value
         (impersonate-ref
-         logger-local-level-timestamp3433
+         logger-local-level-timestamp3429
          struct:logger
          8
          s
          'logger
          'local-level-timestamp))))))
-(define logger-root-level-timestamp-box3434
+(define logger-root-level-timestamp-box3430
   (|#%name| logger-root-level-timestamp-box (record-accessor struct:logger 9)))
 (define logger-root-level-timestamp-box
   (|#%name|
    logger-root-level-timestamp-box
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-root-level-timestamp-box3434 s)
+     (if (1/logger?3419 s)
+       (logger-root-level-timestamp-box3430 s)
        ($value
         (impersonate-ref
-         logger-root-level-timestamp-box3434
+         logger-root-level-timestamp-box3430
          struct:logger
          9
          s
          'logger
          'root-level-timestamp-box))))))
-(define logger-level-sema-box3435
+(define logger-level-sema-box3431
   (|#%name| logger-level-sema-box (record-accessor struct:logger 10)))
 (define logger-level-sema-box
   (|#%name|
    logger-level-sema-box
    (lambda (s)
-     (if (1/logger?3423 s)
-       (logger-level-sema-box3435 s)
+     (if (1/logger?3419 s)
+       (logger-level-sema-box3431 s)
        ($value
         (impersonate-ref
-         logger-level-sema-box3435
+         logger-level-sema-box3431
          struct:logger
          10
          s
          'logger
          'level-sema-box))))))
-(define set-logger-receiver-box+backrefs!3436
+(define set-logger-receiver-box+backrefs!3432
   (|#%name|
    set-logger-receiver-box+backrefs!
    (record-mutator struct:logger 3)))
@@ -33392,11 +33387,11 @@
   (|#%name|
    set-logger-receiver-box+backrefs!
    (lambda (s v)
-     (if (1/logger?3423 s)
-       (set-logger-receiver-box+backrefs!3436 s v)
+     (if (1/logger?3419 s)
+       (set-logger-receiver-box+backrefs!3432 s v)
        ($value
         (impersonate-set!
-         set-logger-receiver-box+backrefs!3436
+         set-logger-receiver-box+backrefs!3432
          struct:logger
          3
          3
@@ -33404,17 +33399,17 @@
          v
          'logger
          'receiver-box+backrefs))))))
-(define set-logger-prune-counter!3437
+(define set-logger-prune-counter!3433
   (|#%name| set-logger-prune-counter! (record-mutator struct:logger 4)))
 (define set-logger-prune-counter!
   (|#%name|
    set-logger-prune-counter!
    (lambda (s v)
-     (if (1/logger?3423 s)
-       (set-logger-prune-counter!3437 s v)
+     (if (1/logger?3419 s)
+       (set-logger-prune-counter!3433 s v)
        ($value
         (impersonate-set!
-         set-logger-prune-counter!3437
+         set-logger-prune-counter!3433
          struct:logger
          4
          4
@@ -33422,17 +33417,17 @@
          v
          'logger
          'prune-counter))))))
-(define set-logger-permanent-receivers!3438
+(define set-logger-permanent-receivers!3434
   (|#%name| set-logger-permanent-receivers! (record-mutator struct:logger 5)))
 (define set-logger-permanent-receivers!
   (|#%name|
    set-logger-permanent-receivers!
    (lambda (s v)
-     (if (1/logger?3423 s)
-       (set-logger-permanent-receivers!3438 s v)
+     (if (1/logger?3419 s)
+       (set-logger-permanent-receivers!3434 s v)
        ($value
         (impersonate-set!
-         set-logger-permanent-receivers!3438
+         set-logger-permanent-receivers!3434
          struct:logger
          5
          5
@@ -33440,17 +33435,17 @@
          v
          'logger
          'permanent-receivers))))))
-(define set-logger-max-receiver-level!3439
+(define set-logger-max-receiver-level!3435
   (|#%name| set-logger-max-receiver-level! (record-mutator struct:logger 6)))
 (define set-logger-max-receiver-level!
   (|#%name|
    set-logger-max-receiver-level!
    (lambda (s v)
-     (if (1/logger?3423 s)
-       (set-logger-max-receiver-level!3439 s v)
+     (if (1/logger?3419 s)
+       (set-logger-max-receiver-level!3435 s v)
        ($value
         (impersonate-set!
-         set-logger-max-receiver-level!3439
+         set-logger-max-receiver-level!3435
          struct:logger
          6
          6
@@ -33458,7 +33453,7 @@
          v
          'logger
          'max-receiver-level))))))
-(define set-logger-local-level-timestamp!3440
+(define set-logger-local-level-timestamp!3436
   (|#%name|
    set-logger-local-level-timestamp!
    (record-mutator struct:logger 8)))
@@ -33466,11 +33461,11 @@
   (|#%name|
    set-logger-local-level-timestamp!
    (lambda (s v)
-     (if (1/logger?3423 s)
-       (set-logger-local-level-timestamp!3440 s v)
+     (if (1/logger?3419 s)
+       (set-logger-local-level-timestamp!3436 s v)
        ($value
         (impersonate-set!
-         set-logger-local-level-timestamp!3440
+         set-logger-local-level-timestamp!3436
          struct:logger
          8
          8
@@ -33478,7 +33473,7 @@
          v
          'logger
          'local-level-timestamp))))))
-(define effect3441
+(define effect3437
   (begin
     (register-struct-constructor! logger1.1)
     (register-struct-predicate! 1/logger?)
@@ -33688,7 +33683,7 @@
 (define level->user-representation
   (lambda (lvl_0) (if (eq? lvl_0 'none) #f lvl_0)))
 (define struct:queue (make-record-type-descriptor* 'queue #f #f #f #f 2 3))
-(define effect3461
+(define effect3457
   (struct-type-install-properties!
    struct:queue
    'queue
@@ -33713,7 +33708,7 @@
   (|#%name| set-queue-start! (record-mutator struct:queue 0)))
 (define set-queue-end!
   (|#%name| set-queue-end! (record-mutator struct:queue 1)))
-(define effect3462
+(define effect3458
   (begin
     (register-struct-constructor! queue1.1)
     (register-struct-predicate! queue?)
@@ -33723,7 +33718,7 @@
     (register-struct-field-mutator! set-queue-end! struct:queue 1)
     (void)))
 (define struct:node (make-record-type-descriptor* 'node #f #f #f #f 3 7))
-(define effect3463
+(define effect3459
   (struct-type-install-properties!
    struct:node
    'node
@@ -33749,7 +33744,7 @@
   (|#%name| set-node-prev! (record-mutator struct:node 1)))
 (define set-node-next!
   (|#%name| set-node-next! (record-mutator struct:node 2)))
-(define effect3464
+(define effect3460
   (begin
     (register-struct-constructor! node2.1)
     (register-struct-predicate! node?)
@@ -33790,7 +33785,7 @@
         (set-queue-end! q_0 (node-prev n_0))))))
 (define struct:log-receiver
   (make-record-type-descriptor* 'log-receiver #f #f #f #f 1 1))
-(define effect3473
+(define effect3469
   (struct-type-install-properties!
    struct:log-receiver
    'log-receiver
@@ -33808,35 +33803,35 @@
    log-receiver
    (record-constructor
     (make-record-constructor-descriptor struct:log-receiver #f #f))))
-(define 1/log-receiver?3472
+(define 1/log-receiver?3468
   (|#%name| log-receiver? (record-predicate struct:log-receiver)))
 (define 1/log-receiver?
   (|#%name|
    log-receiver?
    (lambda (v)
-     (if (1/log-receiver?3472 v)
+     (if (1/log-receiver?3468 v)
        #t
        ($value
         (if (impersonator? v)
-          (1/log-receiver?3472 (impersonator-val v))
+          (1/log-receiver?3468 (impersonator-val v))
           #f))))))
-(define log-receiver-filters3474
+(define log-receiver-filters3470
   (|#%name| log-receiver-filters (record-accessor struct:log-receiver 0)))
 (define log-receiver-filters
   (|#%name|
    log-receiver-filters
    (lambda (s)
-     (if (1/log-receiver?3472 s)
-       (log-receiver-filters3474 s)
+     (if (1/log-receiver?3468 s)
+       (log-receiver-filters3470 s)
        ($value
         (impersonate-ref
-         log-receiver-filters3474
+         log-receiver-filters3470
          struct:log-receiver
          0
          s
          'log-receiver
          'filters))))))
-(define effect3475
+(define effect3471
   (begin
     (register-struct-constructor! log-receiver1.1)
     (register-struct-predicate! 1/log-receiver?)
@@ -33857,7 +33852,7 @@
    #f
    3
    7))
-(define effect3477
+(define effect3473
   (struct-type-install-properties!
    struct:queue-log-receiver
    'log-receiver
@@ -33925,35 +33920,35 @@
    queue-log-receiver
    (record-constructor
     (make-record-constructor-descriptor struct:queue-log-receiver #f #f))))
-(define queue-log-receiver?3476
+(define queue-log-receiver?3472
   (|#%name| log-receiver? (record-predicate struct:queue-log-receiver)))
 (define queue-log-receiver?
   (|#%name|
    log-receiver?
    (lambda (v)
-     (if (queue-log-receiver?3476 v)
+     (if (queue-log-receiver?3472 v)
        #t
        ($value
         (if (impersonator? v)
-          (queue-log-receiver?3476 (impersonator-val v))
+          (queue-log-receiver?3472 (impersonator-val v))
           #f))))))
-(define queue-log-receiver-msgs3501
+(define queue-log-receiver-msgs3497
   (|#%name| log-receiver-msgs (record-accessor struct:queue-log-receiver 0)))
 (define queue-log-receiver-msgs
   (|#%name|
    log-receiver-msgs
    (lambda (s)
-     (if (queue-log-receiver?3476 s)
-       (queue-log-receiver-msgs3501 s)
+     (if (queue-log-receiver?3472 s)
+       (queue-log-receiver-msgs3497 s)
        ($value
         (impersonate-ref
-         queue-log-receiver-msgs3501
+         queue-log-receiver-msgs3497
          struct:queue-log-receiver
          0
          s
          'log-receiver
          'msgs))))))
-(define queue-log-receiver-waiters3502
+(define queue-log-receiver-waiters3498
   (|#%name|
    log-receiver-waiters
    (record-accessor struct:queue-log-receiver 1)))
@@ -33961,17 +33956,17 @@
   (|#%name|
    log-receiver-waiters
    (lambda (s)
-     (if (queue-log-receiver?3476 s)
-       (queue-log-receiver-waiters3502 s)
+     (if (queue-log-receiver?3472 s)
+       (queue-log-receiver-waiters3498 s)
        ($value
         (impersonate-ref
-         queue-log-receiver-waiters3502
+         queue-log-receiver-waiters3498
          struct:queue-log-receiver
          1
          s
          'log-receiver
          'waiters))))))
-(define queue-log-receiver-backref3503
+(define queue-log-receiver-backref3499
   (|#%name|
    log-receiver-backref
    (record-accessor struct:queue-log-receiver 2)))
@@ -33979,17 +33974,17 @@
   (|#%name|
    log-receiver-backref
    (lambda (s)
-     (if (queue-log-receiver?3476 s)
-       (queue-log-receiver-backref3503 s)
+     (if (queue-log-receiver?3472 s)
+       (queue-log-receiver-backref3499 s)
        ($value
         (impersonate-ref
-         queue-log-receiver-backref3503
+         queue-log-receiver-backref3499
          struct:queue-log-receiver
          2
          s
          'log-receiver
          'backref))))))
-(define effect3504
+(define effect3500
   (begin
     (register-struct-constructor! queue-log-receiver2.1)
     (register-struct-predicate! queue-log-receiver?)
@@ -34051,7 +34046,7 @@
    #f
    2
    3))
-(define effect3517
+(define effect3513
   (struct-type-install-properties!
    struct:stdio-log-receiver
    'stdio-log-receiver
@@ -34104,19 +34099,19 @@
    stdio-log-receiver
    (record-constructor
     (make-record-constructor-descriptor struct:stdio-log-receiver #f #f))))
-(define stdio-log-receiver?3516
+(define stdio-log-receiver?3512
   (|#%name| stdio-log-receiver? (record-predicate struct:stdio-log-receiver)))
 (define stdio-log-receiver?
   (|#%name|
    stdio-log-receiver?
    (lambda (v)
-     (if (stdio-log-receiver?3516 v)
+     (if (stdio-log-receiver?3512 v)
        #t
        ($value
         (if (impersonator? v)
-          (stdio-log-receiver?3516 (impersonator-val v))
+          (stdio-log-receiver?3512 (impersonator-val v))
           #f))))))
-(define stdio-log-receiver-rktio3521
+(define stdio-log-receiver-rktio3517
   (|#%name|
    stdio-log-receiver-rktio
    (record-accessor struct:stdio-log-receiver 0)))
@@ -34124,17 +34119,17 @@
   (|#%name|
    stdio-log-receiver-rktio
    (lambda (s)
-     (if (stdio-log-receiver?3516 s)
-       (stdio-log-receiver-rktio3521 s)
+     (if (stdio-log-receiver?3512 s)
+       (stdio-log-receiver-rktio3517 s)
        ($value
         (impersonate-ref
-         stdio-log-receiver-rktio3521
+         stdio-log-receiver-rktio3517
          struct:stdio-log-receiver
          0
          s
          'stdio-log-receiver
          'rktio))))))
-(define stdio-log-receiver-which3522
+(define stdio-log-receiver-which3518
   (|#%name|
    stdio-log-receiver-which
    (record-accessor struct:stdio-log-receiver 1)))
@@ -34142,17 +34137,17 @@
   (|#%name|
    stdio-log-receiver-which
    (lambda (s)
-     (if (stdio-log-receiver?3516 s)
-       (stdio-log-receiver-which3522 s)
+     (if (stdio-log-receiver?3512 s)
+       (stdio-log-receiver-which3518 s)
        ($value
         (impersonate-ref
-         stdio-log-receiver-which3522
+         stdio-log-receiver-which3518
          struct:stdio-log-receiver
          1
          s
          'stdio-log-receiver
          'which))))))
-(define effect3523
+(define effect3519
   (begin
     (register-struct-constructor! stdio-log-receiver3.1)
     (register-struct-predicate! stdio-log-receiver?)
@@ -34210,7 +34205,7 @@
    #f
    2
    3))
-(define effect3528
+(define effect3524
   (struct-type-install-properties!
    struct:syslog-log-receiver
    'syslog-log-receiver
@@ -34252,7 +34247,7 @@
    syslog-log-receiver
    (record-constructor
     (make-record-constructor-descriptor struct:syslog-log-receiver #f #f))))
-(define syslog-log-receiver?3527
+(define syslog-log-receiver?3523
   (|#%name|
    syslog-log-receiver?
    (record-predicate struct:syslog-log-receiver)))
@@ -34260,13 +34255,13 @@
   (|#%name|
    syslog-log-receiver?
    (lambda (v)
-     (if (syslog-log-receiver?3527 v)
+     (if (syslog-log-receiver?3523 v)
        #t
        ($value
         (if (impersonator? v)
-          (syslog-log-receiver?3527 (impersonator-val v))
+          (syslog-log-receiver?3523 (impersonator-val v))
           #f))))))
-(define syslog-log-receiver-rktio3532
+(define syslog-log-receiver-rktio3528
   (|#%name|
    syslog-log-receiver-rktio
    (record-accessor struct:syslog-log-receiver 0)))
@@ -34274,17 +34269,17 @@
   (|#%name|
    syslog-log-receiver-rktio
    (lambda (s)
-     (if (syslog-log-receiver?3527 s)
-       (syslog-log-receiver-rktio3532 s)
+     (if (syslog-log-receiver?3523 s)
+       (syslog-log-receiver-rktio3528 s)
        ($value
         (impersonate-ref
-         syslog-log-receiver-rktio3532
+         syslog-log-receiver-rktio3528
          struct:syslog-log-receiver
          0
          s
          'syslog-log-receiver
          'rktio))))))
-(define syslog-log-receiver-cmd3533
+(define syslog-log-receiver-cmd3529
   (|#%name|
    syslog-log-receiver-cmd
    (record-accessor struct:syslog-log-receiver 1)))
@@ -34292,17 +34287,17 @@
   (|#%name|
    syslog-log-receiver-cmd
    (lambda (s)
-     (if (syslog-log-receiver?3527 s)
-       (syslog-log-receiver-cmd3533 s)
+     (if (syslog-log-receiver?3523 s)
+       (syslog-log-receiver-cmd3529 s)
        ($value
         (impersonate-ref
-         syslog-log-receiver-cmd3533
+         syslog-log-receiver-cmd3529
          struct:syslog-log-receiver
          1
          s
          'syslog-log-receiver
          'cmd))))))
-(define effect3534
+(define effect3530
   (begin
     (register-struct-constructor! syslog-log-receiver4.1)
     (register-struct-predicate! syslog-log-receiver?)
@@ -35196,7 +35191,7 @@
           (void))))))
 (define struct:fs-change-evt
   (make-record-type-descriptor* 'filesystem-change-evt #f #f #f #f 2 3))
-(define effect3656
+(define effect3652
   (struct-type-install-properties!
    struct:fs-change-evt
    'filesystem-change-evt
@@ -35239,19 +35234,19 @@
    fs-change-evt
    (record-constructor
     (make-record-constructor-descriptor struct:fs-change-evt #f #f))))
-(define fs-change-evt?3655
+(define fs-change-evt?3651
   (|#%name| filesystem-change-evt? (record-predicate struct:fs-change-evt)))
 (define fs-change-evt?
   (|#%name|
    filesystem-change-evt?
    (lambda (v)
-     (if (fs-change-evt?3655 v)
+     (if (fs-change-evt?3651 v)
        #t
        ($value
         (if (impersonator? v)
-          (fs-change-evt?3655 (impersonator-val v))
+          (fs-change-evt?3651 (impersonator-val v))
           #f))))))
-(define fs-change-evt-rfc3661
+(define fs-change-evt-rfc3657
   (|#%name|
    filesystem-change-evt-rfc
    (record-accessor struct:fs-change-evt 0)))
@@ -35259,17 +35254,17 @@
   (|#%name|
    filesystem-change-evt-rfc
    (lambda (s)
-     (if (fs-change-evt?3655 s)
-       (fs-change-evt-rfc3661 s)
+     (if (fs-change-evt?3651 s)
+       (fs-change-evt-rfc3657 s)
        ($value
         (impersonate-ref
-         fs-change-evt-rfc3661
+         fs-change-evt-rfc3657
          struct:fs-change-evt
          0
          s
          'filesystem-change-evt
          'rfc))))))
-(define fs-change-evt-cust-ref3662
+(define fs-change-evt-cust-ref3658
   (|#%name|
    filesystem-change-evt-cust-ref
    (record-accessor struct:fs-change-evt 1)))
@@ -35277,17 +35272,17 @@
   (|#%name|
    filesystem-change-evt-cust-ref
    (lambda (s)
-     (if (fs-change-evt?3655 s)
-       (fs-change-evt-cust-ref3662 s)
+     (if (fs-change-evt?3651 s)
+       (fs-change-evt-cust-ref3658 s)
        ($value
         (impersonate-ref
-         fs-change-evt-cust-ref3662
+         fs-change-evt-cust-ref3658
          struct:fs-change-evt
          1
          s
          'filesystem-change-evt
          'cust-ref))))))
-(define set-fs-change-evt-rfc!3663
+(define set-fs-change-evt-rfc!3659
   (|#%name|
    set-filesystem-change-evt-rfc!
    (record-mutator struct:fs-change-evt 0)))
@@ -35295,11 +35290,11 @@
   (|#%name|
    set-filesystem-change-evt-rfc!
    (lambda (s v)
-     (if (fs-change-evt?3655 s)
-       (set-fs-change-evt-rfc!3663 s v)
+     (if (fs-change-evt?3651 s)
+       (set-fs-change-evt-rfc!3659 s v)
        ($value
         (impersonate-set!
-         set-fs-change-evt-rfc!3663
+         set-fs-change-evt-rfc!3659
          struct:fs-change-evt
          0
          0
@@ -35307,7 +35302,7 @@
          v
          'filesystem-change-evt
          'rfc))))))
-(define set-fs-change-evt-cust-ref!3664
+(define set-fs-change-evt-cust-ref!3660
   (|#%name|
    set-filesystem-change-evt-cust-ref!
    (record-mutator struct:fs-change-evt 1)))
@@ -35315,11 +35310,11 @@
   (|#%name|
    set-filesystem-change-evt-cust-ref!
    (lambda (s v)
-     (if (fs-change-evt?3655 s)
-       (set-fs-change-evt-cust-ref!3664 s v)
+     (if (fs-change-evt?3651 s)
+       (set-fs-change-evt-cust-ref!3660 s v)
        ($value
         (impersonate-set!
-         set-fs-change-evt-cust-ref!3664
+         set-fs-change-evt-cust-ref!3660
          struct:fs-change-evt
          1
          1
@@ -35327,7 +35322,7 @@
          v
          'filesystem-change-evt
          'cust-ref))))))
-(define effect3665
+(define effect3661
   (begin
     (register-struct-constructor! fs-change-evt1.1)
     (register-struct-predicate! fs-change-evt?)
@@ -35498,7 +35493,7 @@
            (unsafe-place-local-ref cell.1)
            rfc_0))
         (void)))))
-(define effect3686
+(define effect3682
   (begin
     (void
      (|#%app|
@@ -35719,7 +35714,7 @@
                   (begin (|#%app| final_0 p_0 bstr_0) bstr_0))))))))))
 (define struct:subprocess
   (make-record-type-descriptor* 'subprocess #f #f #f #f 3 7))
-(define effect3697
+(define effect3693
   (struct-type-install-properties!
    struct:subprocess
    'subprocess
@@ -35759,75 +35754,75 @@
    make-subprocess
    (record-constructor
     (make-record-constructor-descriptor struct:subprocess #f #f))))
-(define 1/subprocess?3696
+(define 1/subprocess?3692
   (|#%name| subprocess? (record-predicate struct:subprocess)))
 (define 1/subprocess?
   (|#%name|
    subprocess?
    (lambda (v)
-     (if (1/subprocess?3696 v)
+     (if (1/subprocess?3692 v)
        #t
        ($value
-        (if (impersonator? v) (1/subprocess?3696 (impersonator-val v)) #f))))))
-(define subprocess-process3705
+        (if (impersonator? v) (1/subprocess?3692 (impersonator-val v)) #f))))))
+(define subprocess-process3701
   (|#%name| subprocess-process (record-accessor struct:subprocess 0)))
 (define subprocess-process
   (|#%name|
    subprocess-process
    (lambda (s)
-     (if (1/subprocess?3696 s)
-       (subprocess-process3705 s)
+     (if (1/subprocess?3692 s)
+       (subprocess-process3701 s)
        ($value
         (impersonate-ref
-         subprocess-process3705
+         subprocess-process3701
          struct:subprocess
          0
          s
          'subprocess
          'process))))))
-(define subprocess-cust-ref3706
+(define subprocess-cust-ref3702
   (|#%name| subprocess-cust-ref (record-accessor struct:subprocess 1)))
 (define subprocess-cust-ref
   (|#%name|
    subprocess-cust-ref
    (lambda (s)
-     (if (1/subprocess?3696 s)
-       (subprocess-cust-ref3706 s)
+     (if (1/subprocess?3692 s)
+       (subprocess-cust-ref3702 s)
        ($value
         (impersonate-ref
-         subprocess-cust-ref3706
+         subprocess-cust-ref3702
          struct:subprocess
          1
          s
          'subprocess
          'cust-ref))))))
-(define subprocess-is-group?3707
+(define subprocess-is-group?3703
   (|#%name| subprocess-is-group? (record-accessor struct:subprocess 2)))
 (define subprocess-is-group?
   (|#%name|
    subprocess-is-group?
    (lambda (s)
-     (if (1/subprocess?3696 s)
-       (subprocess-is-group?3707 s)
+     (if (1/subprocess?3692 s)
+       (subprocess-is-group?3703 s)
        ($value
         (impersonate-ref
-         subprocess-is-group?3707
+         subprocess-is-group?3703
          struct:subprocess
          2
          s
          'subprocess
          'is-group?))))))
-(define set-subprocess-process!3708
+(define set-subprocess-process!3704
   (|#%name| set-subprocess-process! (record-mutator struct:subprocess 0)))
 (define set-subprocess-process!
   (|#%name|
    set-subprocess-process!
    (lambda (s v)
-     (if (1/subprocess?3696 s)
-       (set-subprocess-process!3708 s v)
+     (if (1/subprocess?3692 s)
+       (set-subprocess-process!3704 s v)
        ($value
         (impersonate-set!
-         set-subprocess-process!3708
+         set-subprocess-process!3704
          struct:subprocess
          0
          0
@@ -35835,17 +35830,17 @@
          v
          'subprocess
          'process))))))
-(define set-subprocess-cust-ref!3709
+(define set-subprocess-cust-ref!3705
   (|#%name| set-subprocess-cust-ref! (record-mutator struct:subprocess 1)))
 (define set-subprocess-cust-ref!
   (|#%name|
    set-subprocess-cust-ref!
    (lambda (s v)
-     (if (1/subprocess?3696 s)
-       (set-subprocess-cust-ref!3709 s v)
+     (if (1/subprocess?3692 s)
+       (set-subprocess-cust-ref!3705 s v)
        ($value
         (impersonate-set!
-         set-subprocess-cust-ref!3709
+         set-subprocess-cust-ref!3705
          struct:subprocess
          1
          1
@@ -35853,7 +35848,7 @@
          v
          'subprocess
          'cust-ref))))))
-(define effect3710
+(define effect3706
   (begin
     (register-struct-constructor! make-subprocess)
     (register-struct-predicate! 1/subprocess?)
@@ -35926,11 +35921,11 @@
                   'subprocess
                   "(or/c (and/c output-port? file-stream-port?) #f 'stdout)"
                   stderr_0))
-               (let ((lr3714 unsafe-undefined)
+               (let ((lr3710 unsafe-undefined)
                      (group_0 unsafe-undefined)
                      (command_0 unsafe-undefined)
                      (exact/args_0 unsafe-undefined))
-                 (set! lr3714
+                 (set! lr3710
                    (call-with-values
                     (lambda ()
                       (if (path-string? group/command_0)
@@ -35985,9 +35980,9 @@
                      ((group_1 command_1 exact/args_1)
                       (vector group_1 command_1 exact/args_1))
                      (args (raise-binding-result-arity-error 3 args)))))
-                 (set! group_0 (unsafe-vector*-ref lr3714 0))
-                 (set! command_0 (unsafe-vector*-ref lr3714 1))
-                 (set! exact/args_0 (unsafe-vector*-ref lr3714 2))
+                 (set! group_0 (unsafe-vector*-ref lr3710 0))
+                 (set! command_0 (unsafe-vector*-ref lr3710 1))
+                 (set! exact/args_0 (unsafe-vector*-ref lr3710 2))
                  (call-with-values
                   (lambda ()
                     (if (if (pair? exact/args_0)
@@ -36535,7 +36530,7 @@
                                (current-continuation-marks)))))
                          (void))
                        #f))))))))))))
-(define effect3788
+(define effect3784
   (begin
     (void
      (|#%app|
@@ -36607,7 +36602,7 @@
    #f
    1
    1))
-(define effect3808
+(define effect3804
   (struct-type-install-properties!
    struct:tcp-input-port
    'tcp-input-port
@@ -36639,7 +36634,7 @@
   (|#%name|
    set-tcp-input-port-abandon?!
    (record-mutator struct:tcp-input-port 0)))
-(define effect3809
+(define effect3805
   (begin
     (register-struct-constructor! create-tcp-input-port)
     (register-struct-predicate! tcp-input-port?)
@@ -36661,7 +36656,7 @@
    #f
    0
    0))
-(define effect3811
+(define effect3807
   (struct-type-install-properties!
    struct:tcp-input-port-methods.1
    'tcp-input-port-methods
@@ -36682,7 +36677,7 @@
      struct:tcp-input-port-methods.1
      #f
      #f))))
-(define tcp-input-port-methods?.13810
+(define tcp-input-port-methods?.13806
   (|#%name|
    tcp-input-port-methods?
    (record-predicate struct:tcp-input-port-methods.1)))
@@ -36690,13 +36685,13 @@
   (|#%name|
    tcp-input-port-methods?
    (lambda (v)
-     (if (tcp-input-port-methods?.13810 v)
+     (if (tcp-input-port-methods?.13806 v)
        #t
        ($value
         (if (impersonator? v)
-          (tcp-input-port-methods?.13810 (impersonator-val v))
+          (tcp-input-port-methods?.13806 (impersonator-val v))
           #f))))))
-(define effect3812
+(define effect3808
   (begin
     (register-struct-constructor! tcp-input-port-methods1.1)
     (register-struct-predicate! tcp-input-port-methods?.1)
@@ -36801,7 +36796,7 @@
    #f
    1
    1))
-(define effect3828
+(define effect3824
   (struct-type-install-properties!
    struct:tcp-output-port
    'tcp-output-port
@@ -36835,7 +36830,7 @@
   (|#%name|
    set-tcp-output-port-abandon?!
    (record-mutator struct:tcp-output-port 0)))
-(define effect3829
+(define effect3825
   (begin
     (register-struct-constructor! create-tcp-output-port)
     (register-struct-predicate! tcp-output-port?)
@@ -36857,7 +36852,7 @@
    #f
    0
    0))
-(define effect3831
+(define effect3827
   (struct-type-install-properties!
    struct:tcp-output-port-methods.1
    'tcp-output-port-methods
@@ -36878,7 +36873,7 @@
      struct:tcp-output-port-methods.1
      #f
      #f))))
-(define tcp-output-port-methods?.13830
+(define tcp-output-port-methods?.13826
   (|#%name|
    tcp-output-port-methods?
    (record-predicate struct:tcp-output-port-methods.1)))
@@ -36886,13 +36881,13 @@
   (|#%name|
    tcp-output-port-methods?
    (lambda (v)
-     (if (tcp-output-port-methods?.13830 v)
+     (if (tcp-output-port-methods?.13826 v)
        #t
        ($value
         (if (impersonator? v)
-          (tcp-output-port-methods?.13830 (impersonator-val v))
+          (tcp-output-port-methods?.13826 (impersonator-val v))
           #f))))))
-(define effect3832
+(define effect3828
   (begin
     (register-struct-constructor! tcp-output-port-methods7.1)
     (register-struct-predicate! tcp-output-port-methods?.1)
@@ -37011,7 +37006,7 @@
              (void))))))))
 (define struct:rktio-evt
   (make-record-type-descriptor* 'rktio-evt #f #f #f #f 2 3))
-(define effect3848
+(define effect3844
   (struct-type-install-properties!
    struct:rktio-evt
    'rktio-evt
@@ -37047,7 +37042,7 @@
   (|#%name| rktio-evt-poll (record-accessor struct:rktio-evt 0)))
 (define rktio-evt-add-to-poll-set
   (|#%name| rktio-evt-add-to-poll-set (record-accessor struct:rktio-evt 1)))
-(define effect3855
+(define effect3851
   (begin
     (register-struct-constructor! rktio-evt1.1)
     (register-struct-predicate! rktio-evt?)
@@ -37203,7 +37198,7 @@
       (void))))
 (define struct:connect-progress
   (make-record-type-descriptor* 'connect-progress #f #f #f #f 2 3))
-(define effect3869
+(define effect3865
   (struct-type-install-properties!
    struct:connect-progress
    'connect-progress
@@ -37237,7 +37232,7 @@
   (|#%name|
    set-connect-progress-trying-fd!
    (record-mutator struct:connect-progress 1)))
-(define effect3870
+(define effect3866
   (begin
     (register-struct-constructor! connect-progress1.1)
     (register-struct-predicate! connect-progress?)
@@ -37626,7 +37621,7 @@
         (void)))))
 (define struct:tcp-listener
   (make-record-type-descriptor* 'tcp-listener #f #f #f #f 3 7))
-(define effect3883
+(define effect3879
   (struct-type-install-properties!
    struct:tcp-listener
    'tcp-listener
@@ -37647,51 +37642,51 @@
    tcp-listener
    (record-constructor
     (make-record-constructor-descriptor struct:tcp-listener #f #f))))
-(define 1/tcp-listener?3882
+(define 1/tcp-listener?3878
   (|#%name| tcp-listener? (record-predicate struct:tcp-listener)))
 (define 1/tcp-listener?
   (|#%name|
    tcp-listener?
    (lambda (v)
-     (if (1/tcp-listener?3882 v)
+     (if (1/tcp-listener?3878 v)
        #t
        ($value
         (if (impersonator? v)
-          (1/tcp-listener?3882 (impersonator-val v))
+          (1/tcp-listener?3878 (impersonator-val v))
           #f))))))
-(define tcp-listener-lnr3887
+(define tcp-listener-lnr3883
   (|#%name| tcp-listener-lnr (record-accessor struct:tcp-listener 0)))
 (define tcp-listener-lnr
   (|#%name|
    tcp-listener-lnr
    (lambda (s)
-     (if (1/tcp-listener?3882 s)
-       (tcp-listener-lnr3887 s)
+     (if (1/tcp-listener?3878 s)
+       (tcp-listener-lnr3883 s)
        ($value
         (impersonate-ref
-         tcp-listener-lnr3887
+         tcp-listener-lnr3883
          struct:tcp-listener
          0
          s
          'tcp-listener
          'lnr))))))
-(define tcp-listener-closed3888
+(define tcp-listener-closed3884
   (|#%name| tcp-listener-closed (record-accessor struct:tcp-listener 1)))
 (define tcp-listener-closed
   (|#%name|
    tcp-listener-closed
    (lambda (s)
-     (if (1/tcp-listener?3882 s)
-       (tcp-listener-closed3888 s)
+     (if (1/tcp-listener?3878 s)
+       (tcp-listener-closed3884 s)
        ($value
         (impersonate-ref
-         tcp-listener-closed3888
+         tcp-listener-closed3884
          struct:tcp-listener
          1
          s
          'tcp-listener
          'closed))))))
-(define tcp-listener-custodian-reference3889
+(define tcp-listener-custodian-reference3885
   (|#%name|
    tcp-listener-custodian-reference
    (record-accessor struct:tcp-listener 2)))
@@ -37699,17 +37694,17 @@
   (|#%name|
    tcp-listener-custodian-reference
    (lambda (s)
-     (if (1/tcp-listener?3882 s)
-       (tcp-listener-custodian-reference3889 s)
+     (if (1/tcp-listener?3878 s)
+       (tcp-listener-custodian-reference3885 s)
        ($value
         (impersonate-ref
-         tcp-listener-custodian-reference3889
+         tcp-listener-custodian-reference3885
          struct:tcp-listener
          2
          s
          'tcp-listener
          'custodian-reference))))))
-(define effect3890
+(define effect3886
   (begin
     (register-struct-constructor! tcp-listener1.1)
     (register-struct-predicate! 1/tcp-listener?)
@@ -38022,7 +38017,7 @@
          (accept-evt6.1 listener_0))))))
 (define struct:accept-evt
   (make-record-type-descriptor* 'tcp-accept-evt #f #f #f #f 1 1))
-(define effect3919
+(define effect3915
   (struct-type-install-properties!
    struct:accept-evt
    'tcp-accept-evt
@@ -38107,33 +38102,33 @@
    accept-evt
    (record-constructor
     (make-record-constructor-descriptor struct:accept-evt #f #f))))
-(define accept-evt?3918
+(define accept-evt?3914
   (|#%name| tcp-accept-evt? (record-predicate struct:accept-evt)))
 (define accept-evt?
   (|#%name|
    tcp-accept-evt?
    (lambda (v)
-     (if (accept-evt?3918 v)
+     (if (accept-evt?3914 v)
        #t
        ($value
-        (if (impersonator? v) (accept-evt?3918 (impersonator-val v)) #f))))))
-(define accept-evt-listener3939
+        (if (impersonator? v) (accept-evt?3914 (impersonator-val v)) #f))))))
+(define accept-evt-listener3935
   (|#%name| tcp-accept-evt-listener (record-accessor struct:accept-evt 0)))
 (define accept-evt-listener
   (|#%name|
    tcp-accept-evt-listener
    (lambda (s)
-     (if (accept-evt?3918 s)
-       (accept-evt-listener3939 s)
+     (if (accept-evt?3914 s)
+       (accept-evt-listener3935 s)
        ($value
         (impersonate-ref
-         accept-evt-listener3939
+         accept-evt-listener3935
          struct:accept-evt
          0
          s
          'tcp-accept-evt
          'listener))))))
-(define effect3940
+(define effect3936
   (begin
     (register-struct-constructor! accept-evt6.1)
     (register-struct-predicate! accept-evt?)
@@ -38191,7 +38186,7 @@
           (for-loop_0 0 0))))
       (args (raise-binding-result-arity-error 2 args))))))
 (define struct:udp (make-record-type-descriptor* 'udp #f #f #f #f 3 7))
-(define effect3948
+(define effect3944
   (struct-type-install-properties!
    struct:udp
    'udp
@@ -38218,7 +38213,7 @@
   (|#%name| set-udp-is-bound?! (record-mutator struct:udp 1)))
 (define set-udp-is-connected?!
   (|#%name| set-udp-is-connected?! (record-mutator struct:udp 2)))
-(define effect3949
+(define effect3945
   (begin
     (register-struct-constructor! udp1.1)
     (register-struct-predicate! 1/udp?)
@@ -39398,7 +39393,7 @@
             who59_0)))))))
 (define struct:udp-sending-evt
   (make-record-type-descriptor* 'udp-send-evt #f #f #f #f 2 3))
-(define effect4005
+(define effect4001
   (struct-type-install-properties!
    struct:udp-sending-evt
    'udp-send-evt
@@ -39445,7 +39440,7 @@
   (|#%name| udp-send-evt-u (record-accessor struct:udp-sending-evt 0)))
 (define udp-sending-evt-try
   (|#%name| udp-send-evt-try (record-accessor struct:udp-sending-evt 1)))
-(define effect4013
+(define effect4009
   (begin
     (register-struct-constructor! udp-sending-evt66.1)
     (register-struct-predicate! udp-sending-evt?)
@@ -39467,7 +39462,7 @@
    #f
    0
    0))
-(define effect4014
+(define effect4010
   (struct-type-install-properties!
    struct:udp-sending-ready-evt
    'udp-send-ready-evt
@@ -39489,7 +39484,7 @@
   (|#%name|
    udp-send-ready-evt?
    (record-predicate struct:udp-sending-ready-evt)))
-(define effect4015
+(define effect4011
   (begin
     (register-struct-constructor! udp-sending-ready-evt67.1)
     (register-struct-predicate! udp-sending-ready-evt?)
@@ -39820,7 +39815,7 @@
 (define cell.2 (unsafe-make-place-local ""))
 (define struct:udp-receiving-evt
   (make-record-type-descriptor* 'udp-receive-evt #f #f #f #f 2 3))
-(define effect4038
+(define effect4034
   (struct-type-install-properties!
    struct:udp-receiving-evt
    'udp-receive-evt
@@ -39872,7 +39867,7 @@
   (|#%name| udp-receive-evt-u (record-accessor struct:udp-receiving-evt 0)))
 (define udp-receiving-evt-try
   (|#%name| udp-receive-evt-try (record-accessor struct:udp-receiving-evt 1)))
-(define effect4046
+(define effect4042
   (begin
     (register-struct-constructor! udp-receiving-evt39.1)
     (register-struct-predicate! udp-receiving-evt?)
@@ -39894,7 +39889,7 @@
    #f
    0
    0))
-(define effect4047
+(define effect4043
   (struct-type-install-properties!
    struct:udp-receiving-ready-evt
    'udp-receive-ready-evt
@@ -39919,7 +39914,7 @@
   (|#%name|
    udp-receive-ready-evt?
    (record-predicate struct:udp-receiving-ready-evt)))
-(define effect4048
+(define effect4044
   (begin
     (register-struct-constructor! udp-receiving-ready-evt40.1)
     (register-struct-predicate! udp-receiving-ready-evt?)
diff --git a/racket/src/io/port/bytes-port.rkt b/racket/src/io/port/bytes-port.rkt
index ad2fcc37be..a397981f26 100644
--- a/racket/src/io/port/bytes-port.rkt
+++ b/racket/src/io/port/bytes-port.rkt
@@ -102,7 +102,8 @@
 
   [byte-ready
    (lambda (work-done!)
-     ((in-buffer-pos) . < . (direct-end buffer)))]
+     ;; byte or EOF is always ready:
+     #t)]
   
   [get-progress-evt
    (lambda ()