From a1333288a3ca886639fac3b1098e53b0acca7710 Mon Sep 17 00:00:00 2001 From: "resyntax-ci[bot]" <181813515+resyntax-ci[bot]@users.noreply.github.com> Date: Fri, 20 Dec 2024 00:33:26 +0000 Subject: [PATCH] Fix 1 occurrence of `let-to-define` Internal definitions are recommended instead of `let` expressions, to reduce nesting. --- typed-racket-lib/typed-racket/typecheck/tc-structs.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/typed-racket-lib/typed-racket/typecheck/tc-structs.rkt b/typed-racket-lib/typed-racket/typecheck/tc-structs.rkt index 7f391d921..3afd62dd8 100644 --- a/typed-racket-lib/typed-racket/typecheck/tc-structs.rkt +++ b/typed-racket-lib/typed-racket/typecheck/tc-structs.rkt @@ -195,8 +195,8 @@ (loop (cddr l) (cons (car l) getters) (cons (cadr l) setters))))) (match-define (list sty maker pred getters/setters ...) (build-struct-names nm flds #f #f nm #:constructor-name maker*)) - (let-values ([(getters setters) (split getters/setters)]) - (struct-names nm type-name sty maker extra-maker pred getters setters))) + (define-values (getters setters) (split getters/setters)) + (struct-names nm type-name sty maker extra-maker pred getters setters)) ;; gets the fields of the parent type, if they exist ;; Option[Struct-Ty] -> Listof[Type]