From bcb40c394b9fc02738cfde0ecebfaccc55815447 Mon Sep 17 00:00:00 2001 From: Graham Watt Date: Thu, 22 Dec 2016 16:39:00 -0500 Subject: [PATCH] Write "twelfth" instead of "twelveth" in format original commit: 19f41527b0ee4c70415999d2cb8b8a2b845f0066 --- s/format.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/s/format.ss b/s/format.ss index ca3fcc4e9e..6cbc13fd6d 100644 --- a/s/format.ss +++ b/s/format.ss @@ -1011,7 +1011,7 @@ (define v20 '#(#f #f twenty thirty forty fifty sixty seventy eighty ninety)) (define v0 '#(zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen)) (define *v20 '#(#f #f twentieth thirtieth fortieth fiftieth sixtieth seventieth eightieth ninetieth)) - (define *v0 '#(zeroth first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelveth thirteenth fourteenth fifteenth sixteenth seventeenth eighteenth nineteenth)) + (define *v0 '#(zeroth first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelfth thirteenth fourteenth fifteenth sixteenth seventeenth eighteenth nineteenth)) (define (write-ordinal x op) (if (<= -999999999 x +999999999) (if (< x 0)