Fix 1 occurrence of let-to-define

Internal definitions are recommended instead of `let` expressions, to reduce nesting.
racket · Jan 5, 2025 · 76a0a56 · 76a0a56
1 parent 43d77bb
commit 76a0a56
Showing 1 changed file with 15 additions and 14 deletions.
diff --git a/drracket/gui-debugger/debug-tool.rkt b/drracket/gui-debugger/debug-tool.rkt
@@ -332,20 +332,21 @@
                         (format "(set! ~a ...)" id-sym)
                         menu
                         (lambda (item evt)
-                          (let* ([tmp (get-text-from-user (format "New value for ~a" id-sym)
-                                                          #f
-                                                          #f
-                                                          (format "~a" val))])
-                            (when tmp
-                              (let/ec k
-                                (wr (with-handlers ([exn:fail?
-                                                     (lambda (exn)
-                                                       (message-box
-                                                        "Debugger Error"
-                                                        (format "The following error occurred: ~a"
-                                                                (exn-message exn)))
-                                                       (k))])
-                                      (read (open-input-string tmp)))))))))
+                          (define tmp
+                            (get-text-from-user (format "New value for ~a" id-sym)
+                                                #f
+                                                #f
+                                                (format "~a" val)))
+                          (when tmp
+                            (let/ec k
+                              (wr (with-handlers ([exn:fail?
+                                                   (lambda (exn)
+                                                     (message-box
+                                                      "Debugger Error"
+                                                      (format "The following error occurred: ~a"
+                                                              (exn-message exn)))
+                                                     (k))])
+                                    (read (open-input-string tmp))))))))
                        (send (get-canvas)
                              popup-menu
                              menu