forked from GitHub/gf-core
a typo in ParadigmsGer.mkV2 ; added comma in NounGer.RelCN
This commit is contained in:
@@ -167,7 +167,8 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
|
||||
} ;
|
||||
|
||||
RelCN cn rs = {
|
||||
s = \\a,n,c => cn.s ! a ! n ! c ++ rs.s ! gennum cn.g n ;
|
||||
s = \\a,n,c => cn.s ! a ! n ! c ++ "," ++
|
||||
rs.s ! gennum cn.g n ;
|
||||
g = cn.g
|
||||
} ;
|
||||
|
||||
|
||||
@@ -549,7 +549,7 @@ mkV2 : overload {
|
||||
mkV2 : Str -> V2 = \s -> dirV2 (regV s) ;
|
||||
mkV2 : V -> V2 = dirV2 ;
|
||||
mkV2 : V -> Prep -> V2 = prepV2;
|
||||
mkV2 : V -> Case -> V2 = \v,c -> prepV2 v (mkPrep [] c)
|
||||
mkV2 : V -> Case -> V2 = \v,c -> prepV2 v (lin Prep {s = [] ; c = c ; isPrep = False}) ;
|
||||
} ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user