[DO NOT MERGE]: Add some code for Resyntax to analyze

[jackfirth]

This is just to test the Resyntax integration.

[github-actions]

Resyntax analyzed 1 file in this pull request and has added suggestions.

[github-actions]

let-to-define: Internal definitions are recommended instead of let expressions, to reduce nesting.

Suggested change

	(define (distance x1 y1 x2 y2)
	(let ([dx (- x1 x2)]
	[dy (- y1 y2)])
	(sqrt (+ (* dx dx) (* dy dy)))))
	(define (distance x1 y1 x2 y2)
	(define dx (- x1 x2))
	(define dy (- y1 y2))
	(sqrt (+ (* dx dx) (* dy dy))))

Debugging details

Textual replacement

(line-replacement
  #:new-lines
    '#("(define (distance x1 y1 x2 y2)"
       "  (define dx (- x1 x2))"
       "  (define dy (- y1 y2))"
       "  (sqrt (+ (* dx dx) (* dy dy))))")
  #:original-lines
    '#("(define (distance x1 y1 x2 y2)"
       "  (let ([dx (- x1 x2)]"
       "        [dy (- y1 y2)])"
       "    (sqrt (+ (* dx dx) (* dy dy)))))")
  #:start-line 4)

Syntactic replacement

(syntax-replacement
  #:new-syntax
    #<syntax:/home/runner/.local/share/racket/snapshot/pkgs/resyntax/default-recommendations/let-binding-suggestions.rkt:44:3 (define (distance x1 y1 x2 y2) NEWLINE (define dx (- x1 x2)) NEWLINE (define dy (- y1 y2)) NEWLINE (sqrt (+ (* dx dx) (* dy dy))))>
  #:original-syntax
    #<syntax:typed-racket-lib/typed-racket/private/refactorable-code-example.rkt:4:0 (define (distance x1 y1 x2 y2) (let ((dx (- x1 x2)) (dy (- y1 y2))) (sqrt (+ (* dx dx) (* dy dy)))))>)

[jackfirth]

It finally worked! Closing this now.