From 8c1fdc2d84962149778c11f44f08fa5f9843b790 Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 01/11] Fix 2 occurrences of `if-else-false-to-and`

This `if` expression can be refactored to an equivalent expression using `and`.
---
 scribble-lib/scribble/racket.rkt | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

diff --git a/scribble-lib/scribble/racket.rkt b/scribble-lib/scribble/racket.rkt
index a235c442f5..45760fb6b3 100644
--- a/scribble-lib/scribble/racket.rkt
+++ b/scribble-lib/scribble/racket.rkt
@@ -798,9 +798,8 @@
                     (out ". " (if (positive? quote-depth) value-color paren-color))
                     (set! src-col (+ src-col 3)))
                   (hash-set! next-col-map src-col dest-col)
-                  ((loop init-line! quote-depth first-expr? #f) l (if (and expr? (zero? quote-depth))
-                                                                      srcless-step
-                                                                      #f))]))
+                  ((loop init-line! quote-depth first-expr? #f) l (and (and expr? (zero? quote-depth))
+                                                                       srcless-step))]))
              (out (case sh
                     [(#\[) "]"]
                     [(#\{) "}"]
@@ -1187,15 +1186,13 @@
          [(and (struct? v)
                (prefab-struct-key v))
           (andmap quotable? (vector->list (struct->vector v)))]
-         [(struct? v) (if (custom-write? v)
-                          (case (or (and (custom-print-quotable? v)
-                                         (custom-print-quotable-accessor v))
-                                    'self)
-                            [(self always) #t]
-                            [(never) #f]
-                            [(maybe)
-                             (andmap quotable? (vector->list (struct->vector v)))])
-                          #f)]
+         [(struct? v) (and (custom-write? v)
+                           (case (or (and (custom-print-quotable? v)
+                                          (custom-print-quotable-accessor v))
+                                     'self)
+                             [(self always) #t]
+                             [(never) #f]
+                             [(maybe) (andmap quotable? (vector->list (struct->vector v)))]))]
          [(struct-proxy? v) #f]
          [(mpair? v) #f]
          [else #t])])))

From 4be88d74a5f70ab9a01a6cb7c0d1d8c5eda332cb Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 02/11] Fix 5 occurrences of `map-to-for`

This `map` operation can be replaced with a `for/list` loop.
---
 scribble-lib/scribble/racket.rkt | 22 ++++++++------------
 scribble-lib/scribble/run.rkt    | 35 +++++++++++++++-----------------
 2 files changed, 24 insertions(+), 33 deletions(-)

diff --git a/scribble-lib/scribble/racket.rkt b/scribble-lib/scribble/racket.rkt
index 45760fb6b3..fc3732517b 100644
--- a/scribble-lib/scribble/racket.rkt
+++ b/scribble-lib/scribble/racket.rkt
@@ -889,11 +889,9 @@
                 ;; constructed:
                 [(and expr? (zero? quote-depth))
                  (define l (apply append
-                                  (map (lambda (p)
-                                         (let ([p (syntax-e p)])
-                                           (list (forced-pair-car p)
-                                                 (forced-pair-cdr p))))
-                                       (reverse l2))))
+                                  (for/list ([p (in-list (reverse l2))])
+                                    (let ([p (syntax-e p)])
+                                      (list (forced-pair-car p) (forced-pair-cdr p))))))
                  (datum->syntax
                   #f
                   (cons (datum->syntax #f
@@ -946,10 +944,9 @@
     (hash-set! next-col-map init-col dest-col)
     ((loop (lambda () (set! src-col init-col) (set! dest-col 0)) 0 expr? #f) c #f)
     (if (list? suffix)
-        (map (lambda (sfx)
-               (finish-line!)
-               (out sfx #f))
-             suffix)
+        (for/list ([sfx (in-list suffix)])
+          (finish-line!)
+          (out sfx #f))
         (out suffix #f))
     (unless (null? content)
       (finish-line!))
@@ -1443,11 +1440,8 @@
                        [(hash-eq? v) make-immutable-hasheq]
                        [(hash-eqv? v) make-immutable-hasheqv]
                        [else make-immutable-hash])
-                     (map (lambda (p)
-                            (let ([p (syntax-e p)])
-                              (cons (syntax->datum (car p))
-                                    (cdr p))))
-                          (syntax->list pairs)))
+                     (for/list ([p (in-list (syntax->list pairs))])
+                       (let ([p (syntax-e p)]) (cons (syntax->datum (car p)) (cdr p)))))
                     (vector (syntax-source pairs)
                             (syntax-line pairs)
                             (max 0 (- (syntax-column pairs) undelta))
diff --git a/scribble-lib/scribble/run.rkt b/scribble-lib/scribble/run.rkt
index d239aec932..0999e7c247 100644
--- a/scribble-lib/scribble/run.rkt
+++ b/scribble-lib/scribble/run.rkt
@@ -178,21 +178,19 @@
                      (make-compilation-manager-load/use-compiled-handler))])
      (parameterize ([current-command-line-arguments
                      (list->vector (reverse (doc-command-line-arguments)))])
-       (build-docs (map (lambda (file)
-                          (define (go)
-                            (let ([mp (if (current-lib-mode)
-                                          `(lib ,file)
-                                          `(file ,file))])
-                              ;; Try `doc' submodule, first:
-                              (if (module-declared? `(submod ,mp ,doc-binding) #t)
-                                  (dynamic-require `(submod ,mp ,doc-binding)
-                                                   doc-binding)
-                                  (dynamic-require mp doc-binding))))
-                          (if maker
-                              (parameterize ([current-load/use-compiled maker])
-                                (go))
-                              (go)))
-                        files)
+       (build-docs (for/list ([file (in-list files)])
+                     (define (go)
+                       (let ([mp (if (current-lib-mode)
+                                     `(lib ,file)
+                                     `(file ,file))])
+                         ;; Try `doc' submodule, first:
+                         (if (module-declared? `(submod ,mp ,doc-binding) #t)
+                             (dynamic-require `(submod ,mp ,doc-binding) doc-binding)
+                             (dynamic-require mp doc-binding))))
+                     (if maker
+                         (parameterize ([current-load/use-compiled maker])
+                           (go))
+                         (go)))
                    files)))))
 
 (define (build-docs docs files)
@@ -200,10 +198,9 @@
              ((length files) . > . 1))
     (raise-user-error 'scribble "cannot supply a destination name with multiple inputs"))
   (render docs
-          (map (lambda (fn)
-                 (let-values ([(base name dir?) (split-path fn)])
-                   (or (current-dest-name) name)))
-               files)
+          (for/list ([fn (in-list files)])
+            (define-values (base name dir?) (split-path fn))
+            (or (current-dest-name) name))
           #:dest-dir (current-dest-directory)
           #:render-mixin (current-render-mixin)
           #:image-preferences (reverse (current-image-prefs))

From 08e199eb983e499ed58e4bd0b710450ed9eeafee Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 03/11] Fix 1 occurrence of `and-let-to-cond`

Using `cond` allows converting `let` to internal definitions, reducing nesting
---
 scribble-lib/scribble/racket.rkt | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/scribble-lib/scribble/racket.rkt b/scribble-lib/scribble/racket.rkt
index fc3732517b..ce2e1624d6 100644
--- a/scribble-lib/scribble/racket.rkt
+++ b/scribble-lib/scribble/racket.rkt
@@ -1157,10 +1157,12 @@
   (do-syntax-ize v col line (box #hasheq()) #f (and expr? 0) #f))
 
 (define (graph-count ht graph?)
-  (and graph?
-       (let ([n (hash-ref (unbox ht) '#%graph-count 0)])
-         (set-box! ht (hash-set (unbox ht) '#%graph-count (add1 n)))
-         n)))
+  (cond
+    [graph?
+     (define n (hash-ref (unbox ht) '#%graph-count 0))
+     (set-box! ht (hash-set (unbox ht) '#%graph-count (add1 n)))
+     n]
+    [else #f]))
 
 (define-struct forced-pair (car cdr))
 

From 1c27f80147be4ae71544f92ba0fa6d6885dbd95a Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 04/11] Fix 1 occurrence of `define-let-to-multi-define`

This `let` expression can be pulled up into multiple `define` expressions.
---
 scribble-lib/scribble/racket.rkt | 72 ++++++++++++++++----------------
 1 file changed, 37 insertions(+), 35 deletions(-)

diff --git a/scribble-lib/scribble/racket.rkt b/scribble-lib/scribble/racket.rkt
index ce2e1624d6..6e85a83be7 100644
--- a/scribble-lib/scribble/racket.rkt
+++ b/scribble-lib/scribble/racket.rkt
@@ -1299,41 +1299,43 @@
                          [no-cons? 1]    ; '('
                          [else 6])       ; `(list '
                        1))
-     (define r (let ([l (let loop ([col (+ col delta vec-sz graph-sz)]
-                                   [v (cond
-                                        [(vector? v)
-                                         (vector->short-list v values)]
-                                        [(struct? v)
-                                         (cons (let ([pf (prefab-struct-key v)])
-                                                 (if pf
-                                                     (prefab-struct-key v)
-                                                     (object-name v)))
-                                               (cdr (vector->list (struct->vector v qq-ellipses))))]
-                                        [else v])])
-                          (cond
-                            [(null? v) null]
-                            [else
-                             (define i (do-syntax-ize (car v) col line ht #f qq #f))
-                             (cons i (loop (+ col 1 (syntax-span i)) (cdr v)))]))])
-                 (datum->syntax #f
-                                (cond
-                                  [(vector? v) (short-list->vector v l)]
-                                  [(struct? v)
-                                   (define pf (prefab-struct-key v))
-                                   (if pf
-                                       (apply make-prefab-struct (prefab-struct-key v) (cdr l))
-                                       (make-struct-proxy (car l) (cdr l)))]
-                                  [else l])
-                                (vector #f line
-                                        (+ graph-sz col)
-                                        (+ 1 graph-sz col)
-                                        (+ 1
-                                           vec-sz
-                                           delta
-                                           (if (zero? (length l))
-                                               0
-                                               (sub1 (length l)))
-                                           (apply + (map syntax-span l)))))))
+     (define l
+       (let loop ([col (+ col delta vec-sz graph-sz)]
+                  [v (cond
+                       [(vector? v) (vector->short-list v values)]
+                       [(struct? v)
+                        (cons (let ([pf (prefab-struct-key v)])
+                                (if pf
+                                    (prefab-struct-key v)
+                                    (object-name v)))
+                              (cdr (vector->list (struct->vector v qq-ellipses))))]
+                       [else v])])
+         (cond
+           [(null? v) null]
+           [else
+            (define i (do-syntax-ize (car v) col line ht #f qq #f))
+            (cons i (loop (+ col 1 (syntax-span i)) (cdr v)))])))
+     (define r
+       (datum->syntax #f
+                      (cond
+                        [(vector? v) (short-list->vector v l)]
+                        [(struct? v)
+                         (define pf (prefab-struct-key v))
+                         (if pf
+                             (apply make-prefab-struct (prefab-struct-key v) (cdr l))
+                             (make-struct-proxy (car l) (cdr l)))]
+                        [else l])
+                      (vector #f
+                              line
+                              (+ graph-sz col)
+                              (+ 1 graph-sz col)
+                              (+ 1
+                                 vec-sz
+                                 delta
+                                 (if (zero? (length l))
+                                     0
+                                     (sub1 (length l)))
+                                 (apply + (map syntax-span l))))))
      (unless graph?
        (set-box! ht (hash-set (unbox ht) v #f)))
      (cond

From bb4a50f154433cac96626f4d7fc86cdaddd34043 Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 05/11] Fix 5 occurrences of `let-to-define`

Internal definitions are recommended instead of `let` expressions, to reduce nesting.
---
 scribble-lib/scribble/run.rkt  |  23 +++----
 scribble-lib/scribble/xref.rkt | 114 ++++++++++++++++-----------------
 2 files changed, 69 insertions(+), 68 deletions(-)

diff --git a/scribble-lib/scribble/run.rkt b/scribble-lib/scribble/run.rkt
index 0999e7c247..d02edc034f 100644
--- a/scribble-lib/scribble/run.rkt
+++ b/scribble-lib/scribble/run.rkt
@@ -38,10 +38,9 @@
 (define current-image-prefs        (make-parameter null)) ; reverse order
 
 (define (read-one str)
-  (let ([i (open-input-string str)])
-    (with-handlers ([exn:fail:read? (lambda (x) #f)])
-      (let ([v (read i)])
-        (and (eof-object? (read i)) v)))))
+  (define i (open-input-string str))
+  (with-handlers ([exn:fail:read? (lambda (x) #f)])
+    (let ([v (read i)]) (and (eof-object? (read i)) v))))
 
 (define (run)
   (define doc-binding 'doc)
@@ -216,13 +215,15 @@
           #:quiet? (current-quiet)
           #:info-in-files (reverse (current-info-input-files))
           #:xrefs (for/list ([mod+id (in-list (reverse (current-xref-input-modules)))])
-                    (let* ([get-xref (dynamic-require (car mod+id) (cdr mod+id))]
-                           [xr (get-xref)])
-                      (unless (xref? xr)
-                        (raise-user-error
-                         'scribble "result from `~s' of `~s' is not an xref: ~e"
-                         (cdr mod+id) (car mod+id) xr))
-                      xr))
+                    (define get-xref (dynamic-require (car mod+id) (cdr mod+id)))
+                    (define xr (get-xref))
+                    (unless (xref? xr)
+                      (raise-user-error 'scribble
+                                        "result from `~s' of `~s' is not an xref: ~e"
+                                        (cdr mod+id)
+                                        (car mod+id)
+                                        xr))
+                    xr)
           #:info-out-file (current-info-output-file)))
 
 (run)
diff --git a/scribble-lib/scribble/xref.rkt b/scribble-lib/scribble/xref.rkt
index 5177196e83..f34e6a02f8 100644
--- a/scribble-lib/scribble/xref.rkt
+++ b/scribble-lib/scribble/xref.rkt
@@ -55,21 +55,32 @@
   (let* ([renderer (new render% [dest-dir (find-system-path 'temp-dir)])]
          [fp (send renderer traverse null null)]
          [load-source (lambda (src ci)
-                        (parameterize ([current-namespace
-                                        (namespace-anchor->empty-namespace here)])
-                          (let ([vs (src)])
-                            (for ([v (in-list (if (procedure? vs) (vs) (list vs)))])
-                              (when v
-                                (define data (if (data+root? v) (data+root-data v) v))
-                                (define root (if (data+root? v) (data+root-root v) root-path))
-                                (define doc-id (or (and (data+root+doc-id? v) (data+root+doc-id-doc-id v))
-                                                   doc-id-str))
-                                (define pkg (or (and (data+root+doc-id+pkg? v) (data+root+doc-id+pkg-pkg v))
-                                                pkg-str))
-                                (send renderer deserialize-info data ci
-                                      #:root root
-                                      #:doc-id doc-id
-                                      #:pkg pkg))))))]
+                        (parameterize ([current-namespace (namespace-anchor->empty-namespace here)])
+                          (define vs (src))
+                          (for ([v (in-list (if (procedure? vs)
+                                                (vs)
+                                                (list vs)))])
+                            (when v
+                              (define data
+                                (if (data+root? v)
+                                    (data+root-data v)
+                                    v))
+                              (define root
+                                (if (data+root? v)
+                                    (data+root-root v)
+                                    root-path))
+                              (define doc-id
+                                (or (and (data+root+doc-id? v) (data+root+doc-id-doc-id v))
+                                    doc-id-str))
+                              (define pkg
+                                (or (and (data+root+doc-id+pkg? v) (data+root+doc-id+pkg-pkg v))
+                                    pkg-str))
+                              (send renderer deserialize-info
+                                    data
+                                    ci
+                                    #:root root
+                                    #:doc-id doc-id
+                                    #:pkg pkg)))))]
          [use-ids (make-weak-hasheq)]
          [ci (send renderer collect null null fp
                    (lambda (key ci)
@@ -125,50 +136,39 @@
   (send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs))))
 
 ;; Returns (values <tag-or-#f> <form?>)
-(define (xref-binding-tag xrefs id/binding mode
-                          #:space [space #f]
-                          #:suffix [suffix space])
-    (let ([search
-           (lambda (id/binding)
-             (let ([tag (find-scheme-tag #f (xrefs-ri xrefs) id/binding mode
-                                         #:space space
-                                         #:suffix suffix)])
-               (if tag
-                   (values tag (eq? (car tag) 'form))
-                   (values #f #f))))])
-      (cond
-        [(identifier? id/binding)
-         (search id/binding)]
-        [(and (list? id/binding)
-              (= 7 (length id/binding)))
-         (search id/binding)]
-        [(and (list? id/binding)
-              (= 2 (length id/binding)))
-         (let loop ([src (car id/binding)])
-           (cond
-            [(module-path-index? src)
-             (search (list src (cadr id/binding)))]
-            [(module-path? src)
-             (loop (module-path-index-join src #f))]
-            [else
-             (raise-argument-error 'xref-binding-definition->tag
-                                   "(list/c (or/c module-path? module-path-index?) any/c)"
-                                   id/binding)]))]
-        [else (raise-argument-error 'xref-binding-definition->tag
-                                    (string-append
-                                     "(or/c identifier? (lambda (l)\n"
-                                     "                    (and (list? l)\n"
-                                     "                         (or (= (length l) 2)\n"
-                                     "                             (= (length l) 7)))))")
-                                    id/binding)])))
-
-(define (xref-binding->definition-tag xrefs id/binding mode
+(define (xref-binding-tag xrefs id/binding mode #:space [space #f] #:suffix [suffix space])
+  (define (search id/binding)
+    (let ([tag (find-scheme-tag #f (xrefs-ri xrefs) id/binding mode #:space space #:suffix suffix)])
+      (if tag
+          (values tag (eq? (car tag) 'form))
+          (values #f #f))))
+  (cond
+    [(identifier? id/binding) (search id/binding)]
+    [(and (list? id/binding) (= 7 (length id/binding))) (search id/binding)]
+    [(and (list? id/binding) (= 2 (length id/binding)))
+     (let loop ([src (car id/binding)])
+       (cond
+         [(module-path-index? src) (search (list src (cadr id/binding)))]
+         [(module-path? src) (loop (module-path-index-join src #f))]
+         [else
+          (raise-argument-error 'xref-binding-definition->tag
+                                "(list/c (or/c module-path? module-path-index?) any/c)"
+                                id/binding)]))]
+    [else
+     (raise-argument-error 'xref-binding-definition->tag
+                           (string-append "(or/c identifier? (lambda (l)\n"
+                                          "                    (and (list? l)\n"
+                                          "                         (or (= (length l) 2)\n"
+                                          "                             (= (length l) 7)))))")
+                           id/binding)]))
+
+(define (xref-binding->definition-tag xrefs
+                                      id/binding
+                                      mode
                                       #:space [space #f]
                                       #:suffix [suffix space])
-  (let-values ([(tag form?) (xref-binding-tag xrefs id/binding mode
-                                              #:space space
-                                              #:suffix suffix)])
-    tag))
+  (define-values (tag form?) (xref-binding-tag xrefs id/binding mode #:space space #:suffix suffix))
+  tag)
 
 (define (xref-tag->path+anchor xrefs tag
                                #:render% [render% (html:render-mixin render%)]

From 6aff41a91de61b40e08036c6422494350701a8c0 Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 06/11] Fix 1 occurrence of `or-hash-ref-set!-to-hash-ref!`

This expression can be replaced with a simpler, equivalent `hash-ref!` expression.
---
 scribble-lib/scribble/xref.rkt | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/scribble-lib/scribble/xref.rkt b/scribble-lib/scribble/xref.rkt
index f34e6a02f8..400d53d89c 100644
--- a/scribble-lib/scribble/xref.rkt
+++ b/scribble-lib/scribble/xref.rkt
@@ -85,10 +85,7 @@
          [ci (send renderer collect null null fp
                    (lambda (key ci)
                      (define use-obj (collect-info-ext-ht ci))
-                     (define use-id (or (hash-ref use-ids use-obj #f)
-                                        (let ([s (gensym 'render)])
-                                          (hash-set! use-ids use-obj s)
-                                          s)))
+                     (define use-id (hash-ref! use-ids use-obj (λ () (gensym 'render))))
                      (define src (demand-source-for-use key use-id))
                      (and src
                           (load-source src ci))))])

From 34ea69806dfd844b091b84c83502a3e4b84cb3f8 Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 07/11] Fix 1 occurrence of `if-void-to-when-or-unless`

This conditional expression can be replaced with a simpler, equivalent expression.
---
 scribble-lib/scribble/xref.rkt | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/scribble-lib/scribble/xref.rkt b/scribble-lib/scribble/xref.rkt
index 400d53d89c..ab04046bf8 100644
--- a/scribble-lib/scribble/xref.rkt
+++ b/scribble-lib/scribble/xref.rkt
@@ -125,9 +125,8 @@
          [_ (send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs)))]
          [ri (send renderer resolve (list doc) (list dest-file) ci)]
          [xs (send renderer render (list doc) (list dest-file) ri)])
-    (if dest-file
-        (void)
-        (car xs))))
+    (unless dest-file
+      (car xs))))
 
 (define (xref-transfer-info renderer ci xrefs)
   (send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs))))

From 6ec66e916d04e3ed19ad5c4f86e87c4623e2a3d2 Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 08/11] Fix 1 occurrence of `cond-let-to-cond-define`

Internal definitions are recommended instead of `let` expressions, to reduce nesting.
---
 scribble-lib/scribble/eval.rkt | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/scribble-lib/scribble/eval.rkt b/scribble-lib/scribble/eval.rkt
index 34d156a90c..91b1dd78a9 100644
--- a/scribble-lib/scribble/eval.rkt
+++ b/scribble-lib/scribble/eval.rkt
@@ -373,11 +373,11 @@
          (set-mcdr! p (loop (mcdr v)))
          p)]
       [(vector? v)
-       (let ([v2 (make-vector (vector-length v))])
-         (hash-set! ht v v2)
-         (for ([i (in-range (vector-length v2))])
-           (vector-set! v2 i (loop (vector-ref v i))))
-         v2)]
+       (define v2 (make-vector (vector-length v)))
+       (hash-set! ht v v2)
+       (for ([i (in-range (vector-length v2))])
+         (vector-set! v2 i (loop (vector-ref v i))))
+       v2]
       [(box? v)
        (define v2 (box #f))
        (hash-set! ht v v2)

From 7e2f4ace69ffba77954f7a078d0ed07350da04f4 Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 09/11] Fix 1 occurrence of `cond-void-to-when-or-unless`

This conditional expression can be replaced with a simpler, equivalent expression.
---
 scribble-lib/scribble/eval.rkt | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/scribble-lib/scribble/eval.rkt b/scribble-lib/scribble/eval.rkt
index 91b1dd78a9..2c7a4ef8b3 100644
--- a/scribble-lib/scribble/eval.rkt
+++ b/scribble-lib/scribble/eval.rkt
@@ -543,9 +543,8 @@
   (define (wait-loop cust)
     (define thd (find-thread cust))
     (when thd
-      (cond
-        [(eq? give-up-evt (sync thd give-up-evt)) (void)]
-        [else (wait-loop cust)])))
+      (unless (eq? give-up-evt (sync thd give-up-evt))
+        (wait-loop cust))))
   (wait-loop sub-cust))
 
 (define (make-eval/replay logfile)

From 6285380fb3a28a69f9119349dc11cac74c7bb05f Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 10/11] Fix 1 occurrence of `always-throwing-cond-to-when`

Using `when` and `unless` is simpler than a conditional with an always-throwing branch.
---
 scribble-lib/scribble/eval.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scribble-lib/scribble/eval.rkt b/scribble-lib/scribble/eval.rkt
index 2c7a4ef8b3..5a40dabf56 100644
--- a/scribble-lib/scribble/eval.rkt
+++ b/scribble-lib/scribble/eval.rkt
@@ -582,9 +582,9 @@
             (set! evaluations (cdr evaluations))
             (display output init-out-p #| (current-output-port) |#)
             (display error-output init-err-p #| (current-error-port) |#)
-            (cond
-              [(exn? result) (raise result)]
-              [(list? result) (apply values result)])))))))
+            (when (exn? result)
+              (raise result))
+            (apply values result)))))))
   ev)
 
 (define (close-eval e)

From f6e9e27a1a57c061bf98a20bbc7efd7f354f69df Mon Sep 17 00:00:00 2001
From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com>
Date: Thu, 8 Oct 2026 01:07:47 +0000
Subject: [PATCH 11/11] Fix 1 occurrence of `define-lambda-to-define`

The `define` form supports a shorthand for defining functions.
---
 scribble-lib/scribble/run.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scribble-lib/scribble/run.rkt b/scribble-lib/scribble/run.rkt
index d02edc034f..87acdbccec 100644
--- a/scribble-lib/scribble/run.rkt
+++ b/scribble-lib/scribble/run.rkt
@@ -13,8 +13,8 @@
 
 (module test racket/base)
 
-(define multi-html:render-mixin
-  (lambda (%) (html:render-multi-mixin (html:render-mixin %))))
+(define (multi-html:render-mixin %)
+  (html:render-multi-mixin (html:render-mixin %)))
 
 (define current-render-mixin       (make-parameter html:render-mixin))
 (define current-html               (make-parameter #t))