forked from GitHub/gf-rgl
more cases where IFrac introduces additional dots
This commit is contained in:
@@ -123,7 +123,7 @@ lin IFrac d i = {
|
|||||||
if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
|
if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
|
||||||
i.s ! co ;
|
i.s ! co ;
|
||||||
n = Pl ;
|
n = Pl ;
|
||||||
hasDot=False
|
hasDot=True
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -157,7 +157,7 @@ oper
|
|||||||
if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
|
if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
|
||||||
i.s ! o ;
|
i.s ! o ;
|
||||||
n = Pl ;
|
n = Pl ;
|
||||||
hasDot=False
|
hasDot=True
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
oper
|
oper
|
||||||
|
|||||||
@@ -302,7 +302,7 @@ Xilias : CardOrd -> (CardOrd => Str) -> Number -> Str = \co,d,n ->
|
|||||||
if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
|
if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
|
||||||
i.s ! o ;
|
i.s ! o ;
|
||||||
n = Pl ;
|
n = Pl ;
|
||||||
hasDot=False
|
hasDot=True
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
oper
|
oper
|
||||||
|
|||||||
Reference in New Issue
Block a user