floating point numerals

src/korean/NounKor.gf

@@ -107,6 +107,12 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
     numtype = IsDig
     } ;
 
+  NumFloat dig1 dig2 = baseNum ** {
+    s = \\_,_ => dig1.s ! NCard ++ BIND ++ "." ++ BIND ++ dig2.s ! NCard ;
+    n = Pl ;
+    numtype = IsDig
+    } ;
+
   -- : Numeral -> Card ;
   NumNumeral num = num ;