Automated Resyntax fixes (#709)

* Fix 3 occurrences of `define-lambda-to-define`
* Fix 2 occurrences of `if-else-false-to-and`
* Fix 1 occurrence of `cond-let-to-cond-define`
* Fix 8 occurrences of `let-to-define`
* Fix 2 occurrences of `hash-ref-with-constant-lambda-to-hash-ref-without-lambda`
* Fix 1 occurrence of `inverted-when`
* Fix 1 occurrence of `cond-let-to-cond-define`
* Fix 1 occurrence of `let-to-define`
* Fix 1 occurrence of `inverted-when`

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

drracket-test/tests/drracket/gui-debugger/harness.rkt

@@ -20,24 +20,22 @@
        (eval `(require ',(syntax->datum #'name)))]
       [_ (void)])))
 
-(define the-annotator
-  (lambda (stx)
-    (define source (syntax-source stx))
-    (define-values (annotated break-posns)
-      (annotate-for-single-stepping
-       (expand-syntax stx)
-       ; always trigger breaks
-       (const (const #t))
-       ; don't interpose on returned values
-       (const #f)
-       ; if we are not in tail position don't interpose on returned values
-       (lambda (_ __ . vals) (apply values vals))
-       ; record-bound-identifier (do nothing at annotation time)
-       void
-       ; record-top-level-identifier (do nothing at runtime)
-       void
-       source))
-    annotated))
+(define (the-annotator stx)
+  (define source (syntax-source stx))
+  (define-values (annotated break-posns)
+    (annotate-for-single-stepping (expand-syntax stx)
+                                  ; always trigger breaks
+                                  (const (const #t))
+                                  ; don't interpose on returned values
+                                  (const #f)
+                                  ; if we are not in tail position don't interpose on returned values
+                                  (lambda (_ __ . vals) (apply values vals))
+                                  ; record-bound-identifier (do nothing at annotation time)
+                                  void
+                                  ; record-top-level-identifier (do nothing at runtime)
+                                  void
+                                  source))
+  annotated)
 
 (define ((break/test  id) [marks #f])
   (define debug-marks