Better reverse-engineering of ordinal.

This commit is contained in:
Dianne Skoll
2020-01-12 13:57:25 -05:00
parent ddfa44188b
commit 49686210ae
+12
View File
@@ -2701,6 +2701,18 @@ proc ReadTaggedOptions { tag date } {
} else {
lappend ans -text-ordinal Every
}
} else {
if {$d < 8} {
lappend ans -text-ordinal First
} elseif {$d < 15} {
lappend ans -text-ordinal Second
} elseif {$d < 22} {
lappend ans -text-ordinal Third
} elseif {$d < 29} {
lappend ans -text-ordinal Fourth
} else {
lappend ans -text-ordinal Last
}
}
if {[dict exists $obj until]} {