added Extend.SubjunctRelCN

2024-07-30 08:44:01 +02:00
parent 78f333e79e
commit ba2e4a4964
3 changed files with 11 additions and 1 deletions
--- a/src/common/ExtendFunctor.gf
+++ b/src/common/ExtendFunctor.gf
@@ -137,6 +137,8 @@ lin
  ExistNPQS t p np = UseQCl t p (QuestCl (ExistNP np)) ;
  ExistIPQS t p np = UseQCl t p (ExistIP np) ;

+  SubjunctRelCN cn rs = RelCN cn rs ; -- no difference from indicative
+
 lincat
  X = {s : Str} ;