forked from GitHub/gf-core
added mkA with one argument in Slovenian
This commit is contained in:
@@ -282,7 +282,8 @@ oper
|
||||
-- Adjectives
|
||||
|
||||
mkA = overload {
|
||||
mkA : (_,_:Str) -> A = regA ;
|
||||
mkA : (_:Str) -> A = \s -> regA s ("bolj"++s) ;
|
||||
mkA : (_,_:Str) -> A = regA ;
|
||||
mkA : (x1,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,x166 : Str) -> A = worstA ;
|
||||
} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user