refactored Thai so that it can now be compiled producing BIND tokens instead of spaces, by just changing the definition of ResTha.bIND. This is not to be exploited yet, because it produces consecutive BIND tokens, which are not supported at runtime.

src/translator/DictionaryTha.gf

@@ -17,7 +17,7 @@ oper mmkV2V : Str -> V2V = \s -> mkV2V (mkV s) [] [] ;
 oper mmkV2A : Str -> V2A = \s -> mkV2A (mkV s) [] [] ;
 oper mmkV2S : Str -> V2S = \s -> mkV2S (mkV s) [] ;
 oper prepV2 : V -> Prep -> V2 = \v,p -> mkV2 v p.s ;
-oper advV : V -> Adv -> V = \v,a -> mkV v.s1 (v.s2 ++ a.s) ; ----
+oper advV : V -> Adv -> V = \v,a -> mkV v.s1 (thbind v.s2 a.s) ; ----
 
 
 lin aardvark_N = mkN "ตัวกินมด" ; -- src=panlex

src/translator/ExtensionsTha.gf

@@ -14,9 +14,9 @@ lin
 ----  ConjVPI = E.ConjVPI ;
 ----  ComplVPIVV = E.ComplVPIVV ;
 
-  MkVPS _ p vp = {s = vp.s ! p.p} ; ----
+  MkVPS t p vp = {s = t.s ++ p.s ++ vp.s ! p.p} ; ----
 ----  ConjVPS = E.ConjVPS ;
-  PredVPS np vp = cc2 np vp ;
+  PredVPS np vp = thbind np vp ;
 {-
   BaseVPI = E.BaseVPI ;
   ConsVPI = E.ConsVPI ;