From b215395044b150db130a08f332c7c07a67430334 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 31 Mar 2020 15:23:23 +0200
Subject: [PATCH] (Jpn) Remove space between te-form and iru in verbal adj

---
 src/japanese/ResJpn.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/japanese/ResJpn.gf b/src/japanese/ResJpn.gf
index b80691ab..70044fb9 100644
--- a/src/japanese/ResJpn.gf
+++ b/src/japanese/ResJpn.gf
@@ -160,9 +160,9 @@ oper
 
   VerbalA : Str -> Str -> Adj = \kekkonshiteiru,kikonno ->
     let
-      kekkonshite = Predef.tk 2 kekkonshiteiru    
+      kekkonshite = Predef.tk 2 kekkonshiteiru
     in {
-    pred = \\st,t,p => kekkonshite ++ mkExistV.verb ! SomeoneElse ! Anim ! st ! t ! p ;
+    pred = \\st,t,p => kekkonshite + mkExistV.verb ! SomeoneElse ! Anim ! st ! t ! p ;
     attr = kikonno ;
     te = \\p => kekkonshite ++ mkExistV.te ! SomeoneElse ! Anim ! Resp ! p ;
     ba = \\p => kekkonshite ++ mkExistV.ba ! SomeoneElse ! Anim ! Resp ! p ;