GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 17:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

use BIND to glue the digits in IIDig for the Bulgarian, English and Swedish grammmars

Browse Source
This commit is contained in:
kr.angelov
2013-11-12 10:28:46 +00:00
parent d6f73f175f
commit 6449bbad9c
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/english/NumeralEng.gf
View File

@@ -1,4 +1,4 @@
concrete NumeralEng of Numeral = CatEng [Numeral,Digits] ** open ResEng in {
concrete NumeralEng of Numeral = CatEng [Numeral,Digits] ** open Prelude, ResEng in {
lincat
Digit = {s : DForm => CardOrd => Case => Str} ;
@@ -69,8 +69,8 @@ lin pot3plus n m = {
oper
commaIf : DTail -> Str = \t -> case t of {
T3 => frontComma ;
_ => []
T3 => BIND ++ "," ++ BIND ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {