Fix 2 occurrences of let-to-define

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

Author: resyntax-ci[bot]

scribble-lib/scriblib/gui-eval.rkt

@@ -78,21 +78,22 @@
                 log-file)
          (newline log-file)
          (flush-output log-file)
-         (let ([result (with-handlers ([exn:fail? (lambda (exn) (make-gui-exn (exn-message exn)))])
-                         ;; put the call to fixup-picts in the handlers
-                         ;; so that errors in the user-supplied predicates &
-                         ;; conversion functions show up in the rendered output
-                         (fixup-picts (get-predicate?)
-                                      (get-render)
-                                      (get-get-width)
-                                      (get-get-height)
-                                      (eh ev catching-exns? expr)))])
-           (write (serialize result) log-file)
-           (newline log-file)
-           (flush-output log-file)
-           (if (gui-exn? result)
-               (raise (make-exn:fail (gui-exn-message result) (current-continuation-marks)))
-               result))))]
+         (define result
+           (with-handlers ([exn:fail? (lambda (exn) (make-gui-exn (exn-message exn)))])
+             ;; put the call to fixup-picts in the handlers
+             ;; so that errors in the user-supplied predicates &
+             ;; conversion functions show up in the rendered output
+             (fixup-picts (get-predicate?)
+                          (get-render)
+                          (get-get-width)
+                          (get-get-height)
+                          (eh ev catching-exns? expr))))
+         (write (serialize result) log-file)
+         (newline log-file)
+         (flush-output log-file)
+         (if (gui-exn? result)
+             (raise (make-exn:fail (gui-exn-message result) (current-continuation-marks)))
+             result)))]
     [else
      (define log-file
        (with-handlers ([exn:fail:filesystem? (lambda (exn) (open-input-string ""))])
@@ -103,26 +104,23 @@
                                       (if catching-exns?
                                           (raise exn)
                                           (void)))])
-           (let ([v (read log-file)])
-             (if (eof-object? v)
-                 (error "expression not in log file")
-                 (let ([v (deserialize v)])
-                   (if (equal? v
-                               (if (syntax? expr)
-                                   (syntax->datum expr)
-                                   expr))
-                       (let ([v (read log-file)])
-                         (if (eof-object? v)
-                             (error "expression result missing in log file")
-                             (let ([v (deserialize v)])
-                               (if (gui-exn? v)
-                                   (raise (make-exn:fail (gui-exn-message v)
-                                                         (current-continuation-marks)))
-                                   v))))
-                       (error 'mreval
-                              "expression does not match log file: ~e versus: ~e"
-                              expr
-                              v))))))))]))
+           (define v (read log-file))
+           (if (eof-object? v)
+               (error "expression not in log file")
+               (let ([v (deserialize v)])
+                 (if (equal? v
+                             (if (syntax? expr)
+                                 (syntax->datum expr)
+                                 expr))
+                     (let ([v (read log-file)])
+                       (if (eof-object? v)
+                           (error "expression result missing in log file")
+                           (let ([v (deserialize v)])
+                             (if (gui-exn? v)
+                                 (raise (make-exn:fail (gui-exn-message v)
+                                                       (current-continuation-marks)))
+                                 v))))
+                     (error 'mreval "expression does not match log file: ~e versus: ~e" expr v)))))))]))
 
 (define image-counter 0)