OSDN Git Service

Revisedfinals
[dianzhuhui/script.git] / emc / test_emclib.pl
index 73dd1a3..79335d6 100644 (file)
@@ -70,9 +70,8 @@ test_cat :-
     writef("tuwngH: %w\n", [Cat3]),% 端送1去
     trad_cat('tuwk', Cat4),
     writef("tuwk: %w\n", [Cat4]), % 端屋1入
-    ph_cat('東', '端東1平').
-%    trad_cat('towng', Cat5),
-%    writef("towng: %w\n", [Cat5]), % 端3平
+    trad_cat('tsyowng', Cat5),
+    writef("tsyowng: %w\n", [Cat5]). % 端3平
 
 %----- Utility -----
 countup(Name) :-