1Dリストの内容が連続値かどうかチェック v2

1D List（Array）の内容が数値の連続値かどうかチェックするAppleScriptです。

地味ですが、超一級に重要な部品です。このルーチンが存在することで、1D List同士の要素の存在確認を手軽に行えています。

いろいろ便利に使っていたのですが、引数のリストが要素数＝０のヌルリスト（{}）を渡した場合にエラーになることがわかったので、そのエラー対処を追加しています。

AppleScript名：1Dリストの内容が連続値かどうかチェック v2

set aList to {2, 3, 4}
set aRes to chkSequential(aList) of me
–> true

set aList to {}
set aRes to chkSequential(aList) of me
–> false

–与えられた1D Listが連続値かどうかをチェックする
on chkSequential(aList as list)
　　if length of aList = 1 then return true
　　if aList = {} then return false
　　
　　set aFirst to first item of aList
　　set aList to rest of aList
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is not equal to (aFirst + 1) then
　　　　　　return false
　　　　end if
　　　　copy j to aFirst
　　end repeat
　　
　　return true
end chkSequential