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

added ParadigmsEng.invarA

Browse Source
This commit is contained in:
Aarne Ranta
2018-12-13 14:15:57 +02:00
parent 994e0482bc
commit 231b7be0c4
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/english/ParadigmsEng.gf
View File

@@ -168,6 +168,7 @@ oper
compoundA : A -> A ; -- force comparison with more/most
simpleA : A -> A ; -- force comparison with -er,-est
irregAdv : A -> Str -> A ; -- adverb irreg, e.g. "fast"
invarA : Str -> A ; -- adjective that does not vary in morphology
--3 Two-place adjectives
@@ -654,6 +655,8 @@ mkInterj : Str -> Interj
mkAdjective a b c d
} ;
invarA s = mkAdjective s s s s ;
compoundA = compoundADeg ;
simpleA a =
let ad = (a.s ! AAdj Posit Nom)