-! Fix up table for long contractions
-: help-one ( assoc key -- )
- ! Need to be more general? Not for DUCET, apparently
- 2 head 2dup swap key? [ 2drop ] [
- [ [ 1string of ] with { } map-as concat ]
- [ swap set-at ] 2bi
- ] if ;
-
-: fixup-ducet ( -- )
+! https://www.unicode.org/reports/tr10/tr10-41.html#Well_Formed_DUCET
+! WF5 - Well-formedness 5 condition:
+! https://www.unicode.org/reports/tr10/tr10-41.html#WF5
+! { "0CC6" "0CC2" "0CD5" } ! 0CD5 is not a non-starter, don't add 2-gram "0CC6" "0CC2"to ducet
+! { "0DD9" "0DCF" "0DCA" } ! already in allkeys.txt file
+! { "0FB2" "0F71" "0F80" } ! added below
+! { "0FB3" "0F71" "0F80" } ! added below
+! This breaks the unicode tests that ship in CollationTest_SHIFTED.txt
+! but it's supposedly more correct.
+: fixup-ducet-for-tibetan ( -- )