¿Cómo puedo comprobar si el año es bisiesto en AppleScript?

Un enfoque alternativo sería pedir el mes del 29 de febrero. En un año no bisiesto, debería devolver "marzo".

month of date "2/29/2018"

Esto muestra el enfoque, pero como se señala en los comentarios, lo anterior se compila automáticamente en una fecha larga.

Para solucionar esto y también para proporcionar flexibilidad en cuanto al año, esto devolverá "febrero" en un año bisiesto, y "marzo" en caso contrario.

month of date ("2/29/" & (year of (current date) as text))

-> Marzo

Incorporando el código de la pregunta, podría ser así. Lo pedí de esta manera para no tener que pagar antes por más meses.

set g31 to {1, 3, 5, 7, 8, 10, 12}
set g30 to {4, 6, 9, 11}

set MM to month of (current date) as integer

if g31 contains MM then
    set Prefix to "Gregorian_31"
else
    if g30 contains MM then
        set Prefix to "Gregorian_30"
    else
        if month of date ("2/29/" & (year of (current date))) as integer = 2 then
            set Prefix to "Gregorian_Leap"
        else
            set Prefix to "Gregorian_28"
        end if
    end if
end if