summary: use "a" or "an" when describing tuple.

locals-and-roots
John Benediktsson 2016-03-30 13:41:41 -07:00
parent c4f67577f1
commit e881f3d5a6
2 changed files with 7 additions and 3 deletions

View File

@ -9,5 +9,8 @@ IN: summary.tests
[ [ ] f wrong-values ] [ ] recover summary
] unit-test
TUPLE: ooga-boga ;
{ "a ooga-boga tuple" } [ ooga-boga boa summary ] unit-test
TUPLE: ooga-booga ;
{ "an ooga-booga tuple" } [ ooga-booga boa summary ] unit-test
TUPLE: booga-ooga ;
{ "a booga-ooga tuple" } [ booga-ooga boa summary ] unit-test

View File

@ -19,7 +19,8 @@ M: assoc tuple-summary
dup assoc-size "entries" container-summary ;
M: object tuple-summary
object-summary "a " " tuple" surround ;
object-summary dup ?first "aeiou" member?
"an " "a " ? " tuple" surround ;
M: set tuple-summary
dup cardinality "members" container-summary ;