home-services: shells: Use match-record-lambda instead of lambda with a single expression match-record

modules/radix/home/services/shells.scm

@@ -61,8 +61,7 @@
 
 (define (serialize-fish-abbreviations field-name val)
   #~(string-append
-     #$@(map (lambda (abbr)
-               (match-record abbr <abbreviation>
+     #$@(map (match-record-lambda <abbreviation>
                (name pattern position marker expansion)
                #~((@@ (ice-9 format) format) #f
                    "~%abbr --add '~a' \\~%~
@@ -77,7 +76,7 @@
                    #$(if (fish-function? expansion)
                        (format #f "--function ~a"
                                   (fish-function-name expansion))
-                         (format #f "\"~a\"" expansion)))))
+                       (format #f "\"~a\"" expansion))))
              val)))
 
 (define (serialize-fish-env-vars field-name val)