(Hun) Use regNoun in mkAdj

This commit is contained in:
Inari Listenmaa
2020-04-27 13:00:24 +02:00
parent 61a3fe78b4
commit 9e57766263

View File

@@ -321,7 +321,7 @@ oper
isPost : Bool ; -- put adjective past the thing it modifies
} ;
mkAdj : Str -> Adjective = \sgnom -> mkAdj2 sgnom (mkNoun sgnom) ;
mkAdj : Str -> Adjective = \sgnom -> mkAdj2 sgnom (regNoun sgnom) ;
mkAdj2 : Str -> Noun -> Adjective = \sgnom,adjAsNoun -> adjAsNoun ** {