Fix 4 occurrences of let-to-define

Internal definitions are recommended instead of `let` expressions, to reduce nesting.

Author: resyntax-ci[bot]

drracket-core-lib/drracket/private/get-defs.rkt

@@ -158,19 +158,17 @@
 ;; get-defn-indent : text number -> number
 ;; returns the amount to indent a particular definition
 (define (get-defn-indent text pos)
-  (let* ([para (send text position-paragraph pos)]
-         [para-start (send text paragraph-start-position para #t)])
-    (let loop ([c-pos para-start]
-               [offset 0])
-      (cond
-        [(< c-pos pos)
-         (define char (send text get-character c-pos))
-         (cond
-           [(char=? char #\tab)
-            (loop (+ c-pos 1) (+ offset (- 8 (modulo offset 8))))]
-           [else
-            (loop (+ c-pos 1) (+ offset 1))])]
-        [else offset]))))
+  (define para (send text position-paragraph pos))
+  (define para-start (send text paragraph-start-position para #t))
+  (let loop ([c-pos para-start]
+             [offset 0])
+    (cond
+      [(< c-pos pos)
+       (define char (send text get-character c-pos))
+       (cond
+         [(char=? char #\tab) (loop (+ c-pos 1) (+ offset (- 8 (modulo offset 8))))]
+         [else (loop (+ c-pos 1) (+ offset 1))])]
+      [else offset])))
 
 ;; whitespace-or-paren?
 (define (whitespace-or-paren? char)

drracket-core-lib/drracket/private/syncheck-debug.rkt

@@ -121,24 +121,24 @@
   (define (syntax-object->datum/ht stx)
     (define ht (make-hasheq))
     (values (let loop ([stx stx])
-              (let ([obj (syntax-e stx)])
-                (cond
-                  [(list? obj)
-                   (let ([res (map loop obj)])
-                     (hash-set! ht res stx)
-                     res)]
-                  [(pair? obj)
-                   (let ([res (cons (loop (car obj)) (loop (cdr obj)))])
-                     (hash-set! ht res stx)
-                     res)]
-                  [(vector? obj)
-                   (let ([res (list->vector (map loop (vector->list obj)))])
-                     (hash-set! ht res stx)
-                     res)]
-                  [else
-                   (let ([res (syntax->datum stx)])
-                     (hash-set! ht res stx)
-                     res)])))
+              (define obj (syntax-e stx))
+              (cond
+                [(list? obj)
+                 (let ([res (map loop obj)])
+                   (hash-set! ht res stx)
+                   res)]
+                [(pair? obj)
+                 (let ([res (cons (loop (car obj)) (loop (cdr obj)))])
+                   (hash-set! ht res stx)
+                   res)]
+                [(vector? obj)
+                 (let ([res (list->vector (map loop (vector->list obj)))])
+                   (hash-set! ht res stx)
+                   res)]
+                [else
+                 (let ([res (syntax->datum stx)])
+                   (hash-set! ht res stx)
+                   res)]))
             ht))
 
   ;; make-text-port : text -> port
@@ -147,8 +147,8 @@
     (define-values (in out) (make-pipe))
     (thread (λ ()
               (let loop ()
-                (let ([c (read-char in)])
-                  (unless (eof-object? c)
-                    (send text insert (string c) (send text last-position) (send text last-position))
-                    (loop))))))
+                (define c (read-char in))
+                (unless (eof-object? c)
+                  (send text insert (string c) (send text last-position) (send text last-position))
+                  (loop)))))
     out)