diverse RGL and Phrasebook fixes, and a corrected Synopsis

lib/src/thai/LexiconTha.gf

@@ -239,7 +239,7 @@ lin
   read_V2 = mkV2 "อ่าน" ;
   red_A = mkA (thword "สี" "แดง") ;
   religion_N = mkN (thword "ศาส" "นา") ; ----?
-  restaurant_N = placeN (thword "ร้าน" "อาหาร") ;
+  restaurant_N = placeN (thword "ร้าน" "อา" "หาร") ;
   right_Ord = ss "ขวา" ;
   river_N = mkN (thword "แม่" "น้ำ") ;
   road_N = mkN (thword "ถนน") ;

lib/src/thai/QuestionTha.gf

@@ -17,7 +17,7 @@ concrete QuestionTha of Question = CatTha **
 
     QuestIAdv iadv cl = {s = \\p => thbind (cl.s ! ClDecl ! p) iadv.s} ; 
 
-    QuestIComp icomp np = {s = \\p => thbind np.s icomp.s} ; 
+    QuestIComp icomp np = {s = \\p => thbind np.s (polStr may_s p) icomp.s} ; 
 
     PrepIP p ip = thbind p ip ;
 
@@ -37,9 +37,9 @@ concrete QuestionTha of Question = CatTha **
 
     AdvIAdv i a = thbind i a ;
 
-    CompIAdv a = a ;
+    CompIAdv a = ss (thbind yuu_s a.s) ;
 
-    CompIP ip = ip ;
+    CompIP ip = ss (thbind pen_s ip.s) ;
 
 }
 

lib/src/thai/StringsTha.gf

@@ -94,6 +94,6 @@ yay_s = "ใหญ" ; -- big
 yig_s = "หญิง" ; -- woman2
 yii_s = "ยี่" ; -- two'
 yin_s = "ยิน" ; -- you're-welcome1
-yuu_s = "ยู" ; -- where0(?)
+yuu_s = "อยู่" ; -- be (in a place)
 
 }

lib/src/thai/ThaiScript.hs

@@ -13,6 +13,7 @@ allThpron = do
   System.system "ls *Tha*.gf ../api/*Tha*.gf >srcThai.txt"
   files <- readFile "srcThai.txt" >>= return . lines
   mapM_ fileThpron files
+  return ()
 
 fileThpron file = do
   s <- readFile file

lib/src/thai/VerbTha.gf

@@ -73,7 +73,7 @@ concrete VerbTha of Verb = CatTha ** open ResTha, StringsTha, Prelude in {
       }
     } ;
 
-    CompAdv a = {s = \\p => polStr may_s p ++ a.s} ; --- ??
+    CompAdv a = {s = \\p => thbind (polStr may_s p) yuu_s a.s} ; --- works for place adverbs
 
 }