more general Pinyin file generation in Chi

2026-05-23 09:52:55 -06:00 · 2013-10-19 16:00:07 +00:00
parent 7a7b7309ef
commit 3e978f2db1
2 changed files with 6 additions and 5 deletions
--- a/lib/src/chinese/pinyin/ResChi.gf
+++ b/lib/src/chinese/pinyin/ResChi.gf
@@ -252,7 +252,7 @@ oper
    } ;
    
  getAdvType : Str -> AdvType = \s -> case s of {
-    "在" + _ => ATPlace True ; -- certain that True
+    "zai4" + _ => ATPlace True ; -- certain that True
    _ => ATPlace False         -- uncertain whether ATPlace
    } ;