Automated Resyntax fixes (#699)

Resyntax fixed 20 issues in 4 files.

Fixed 5 occurrences of `let-to-define`
Fixed 5 occurrences of `instantiate-to-new`
Fixed 3 occurrences of `cond-let-to-cond-define`
Fixed 2 occurrences of `tidy-require`
Fixed 1 occurrence of `let-values-then-call-to-call-with-values`
Fixed 1 occurrence of `nested-for-to-for*`
Fixed 1 occurrence of `unused-definition`
Fixed 1 occurrence of `sort-with-keyed-comparator-to-sort-by-key`
Fixed 1 occurrence of `if-else-false-to-and`

---------

Co-authored-by: resyntax-ci[bot] <181813515+resyntax-ci[bot]@users.noreply.github.com>

Author: resyntax-ci[bot]

drracket-tool-lib/drracket/get-module-path.rkt

@@ -1,11 +1,11 @@
 #lang racket/base
-(require racket/class
+(require drracket/find-module-path-completions
+         framework
+         racket/class
          racket/contract
          racket/gui/base
-         string-constants
          setup/path-to-relative
-         framework
-         drracket/find-module-path-completions)
+         string-constants)
 
 (provide
  (contract-out
@@ -341,12 +341,12 @@
                [pending-str+dlg #f]
 
                ;; this is #f when there is not alternate racket supplied
-               [clcl/clcp (if (path-string? initial-alternate-racket)
-                              (let-values ([(a b c) (alternate-racket-clcl/clcp
-                                                     initial-alternate-racket
-                                                     pkgs-dirs-cache)])
-                                (list a b c))
-                              #f)])
+               [clcl/clcp (and
+                           (path-string? initial-alternate-racket)
+                           (call-with-values (λ ()
+                                               (alternate-racket-clcl/clcp initial-alternate-racket
+                                                                           pkgs-dirs-cache))
+                                             list))])
       (sync
        (handle-evt 
         new-alternate-racket-chan