fun make_alt_record (stringlists, {x, y, z}) =
case generate_alts (stringlists, x) of
[] => {x, y, z}
| alt::stringlists' => {name, y, z}
generate_alts は文字列リスト リストと文字列を消費し、文字列リストを生成します。make_alt_record は、新しいレコードを生成することになっています。
代わりに、次のようなエラーが生成されます。
hw2provided.sml:48.6-48.8 Error: syntax error: replacing DARROW with LPAREN
hw2provided.sml:49.23-49.25 Error: syntax error: replacing DARROW with AS
hw2provided.sml:65.1 Error: syntax error found at EOF