Optimize keep-sorted-suggestions: extract shared helper function

Co-authored-by: jackfirth <[email protected]>

Author: Copilot

default-recommendations/keep-sorted-suggestions.rkt

@@ -10,7 +10,6 @@
 
 
 (require racket/list
-         racket/sequence
          resyntax/base
          syntax/parse
          syntax/parse/define)
@@ -19,18 +18,20 @@
 ;@----------------------------------------------------------------------------------------------------
 
 
+;; Convert an identifier syntax object to its string representation
+(define (identifier->string id)
+  (symbol->string (syntax-e id)))
+
+
 ;; Check if a list of identifiers is sorted alphabetically by their symbol names
 (define (identifiers-sorted? ids)
-  (define id-list (sequence->list ids))
-  (define id-strings (map (λ (id) (symbol->string (syntax-e id))) id-list))
+  (define id-strings (map identifier->string ids))
   (equal? id-strings (sort id-strings string<?)))
 
 
 ;; Sort a list of syntax objects representing identifiers alphabetically
 (define (sort-identifiers ids)
-  (sort (sequence->list ids)
-        string<?
-        #:key (λ (id) (symbol->string (syntax-e id)))))
+  (sort ids string<? #:key identifier->string))
 
 
 ;; Syntax class for matching a list expression with identifier elements