From ccdb58de21915f20a379c4e42bae56955cc1d0f2 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 25 May 2023 11:23:45 +0200
Subject: [PATCH] (Chi) add de after RelVPS

---
 src/chinese/ExtendChi.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/chinese/ExtendChi.gf b/src/chinese/ExtendChi.gf
index a0aa933ff..48b9080dd 100644
--- a/src/chinese/ExtendChi.gf
+++ b/src/chinese/ExtendChi.gf
@@ -44,7 +44,7 @@ concrete ExtendChi of Extend = CatChi **
     -- QuestVPS ip vps = -- TODO: probably need to change structure of VPS
 
     -- : RP -> VPS -> RS ;         -- which won't sleep
-    RelVPS rp vps = {s = rp.s ! True ++ vps.s} ;
+    RelVPS rp vps = {s = rp.s ! True ++ vps.s ++ "的"} ;
 
     MkVPI vp = {s = (mkClause [] vp).s ! Pos ! APlain} ;
     ConjVPI c = conjunctDistrSS (c.s ! CSent) ;