The new Decimal API

src/chinese/pinyin/NumeralChi.gf

@@ -160,4 +160,16 @@ lin pot3plus n m =
     D_8 = ss "8" ;
     D_9 = ss "9" ;
 
+    PosDecimal d = d ** {hasDot=False} ;
+    NegDecimal d = {
+      s = "-" ++ BIND ++ d.s ;
+      hasDot=False
+      } ;
+    IFrac d i = {
+      s=d.s ++
+        if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
+        i.s;
+      hasDot=True
+    } ;
+
 }