use BIND in IIDig for all languages in the library

This commit is contained in:
krasimir
2015-06-11 12:00:57 +00:00
parent 0804f386ff
commit 3c2740c079
24 changed files with 39 additions and 39 deletions

View File

@@ -1,4 +1,4 @@
concrete NumeralIna of Numeral = CatIna ** open ResIna in {
concrete NumeralIna of Numeral = CatIna ** open ResIna,Prelude in {
lincat
Digit = {s : DForm => CardOrd => Str} ;
@@ -68,8 +68,8 @@ concrete NumeralIna of Numeral = CatIna ** open ResIna in {
oper
commaIf : DTail -> Str = \t -> case t of {
T3 => "," ;
_ => []
T3 => BIND++","++BIND ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {