Test Resyntax reviews again

[jackfirth]

No description provided.

[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

	(let ([path (make-temporary-file "rkttmp~a" #f parent-dir)])
	(display-to-file contents path #:mode 'text #:exists 'truncate)
	path))
	(define path (make-temporary-file "rkttmp~a" #f parent-dir))
	(display-to-file contents path #:mode 'text #:exists 'truncate)
	path)

Debugging details

Textual replacement

(line-replacement
  #:new-lines
    '#("    (define path (make-temporary-file \"rkttmp~a\" #f parent-dir))"
       "    (display-to-file contents path #:mode 'text #:exists 'truncate)"
       "    path)")
  #:original-lines
    '#("    (let ([path (make-temporary-file \"rkttmp~a\" #f parent-dir)])"
       "      (display-to-file contents path #:mode 'text #:exists 'truncate)"
       "      path))")
  #:start-line 29)

Syntactic replacement

(syntax-replacement
  #:introduction-scope #<procedure:do-make-syntax-introducer>
  #:new-syntax
    #<syntax:.../resyntax/base.rkt:171:28 (define (create) (define path (make-temporary-file "rkttmp~a" #f parent-dir)) (display-to-file contents path #:mode (quote text) #:exists (quote truncate)) path)>
  #:original-syntax
    #<syntax:disposable/file.rkt:28:2 (define (create) (let ((path (make-temporary-file "rkttmp~a" #f parent-dir))) (display-to-file contents path #:mode (quote text) #:exists (quote truncate)) path))>
  #:source
    (file-source
     #<path:/home/runner/work/racket-disposable/racket-disposable/disposable/file.rkt>))