lilypond function aliases

[Gianmaria Lari]

Is this the correct way to create a function alias in lilypond or there is a shorter/better way?

\version "2.21.0"

extremelyLongNameFunction  =

#(define-music-function (music) (ly:music?)

   (let ((varOne #{ a b b a #}))

     #{

       $varOne $music $varOne

     #}))

alias = 

#(define-music-function (music) (ly:music?)   

   #{

     \extremelyLongNameFunction $music

   #})

\alias {a}

Thank you, g.