(Kor) Tweaks in Adv+AdV

src/korean/NounKor.gf

@@ -171,7 +171,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
 
   -- : CN -> Adv -> CN ;
   AdvCN cn adv = cn ** {
-    rs = cn.rs ++ adv.s
+    rs = adv.s ++ cn.rs
     } ;
 
 -- Nouns can also be modified by embedded sentences and questions.

src/korean/ResKor.gf

@@ -335,7 +335,7 @@ oper
     nObj = np.s ! v2.c2 ++ v2.p2.s ! np.p
   } ;
 
-  insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s} ;
+  insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s ++ vp.adv} ;
   insertAdvSlash : VPSlash -> SS -> VPSlash = \v,a -> v ** insertAdv v a ;
 --------------------------------------------------------------------------------
 -- Cl, S

src/korean/StructuralKor.gf

@@ -21,9 +21,9 @@ lin how8much_IAdv = ss "" ;
 lin when_IAdv = ss "" ;
 lin where_IAdv = ss "" :
 lin why_IAdv = ss "" :
-
-lin always_AdV = ss "" ;
-
+-}
+lin always_AdV = ss "항상" ;
+{-
 lin everywhere_Adv = ss "" ;
 lin here7from_Adv = ss "" ;
 lin here7to_Adv = ss "" ;

src/korean/VerbKor.gf

@@ -89,17 +89,16 @@ lin
   -- : VPSlash -> Adv -> VPSlash ;  -- use (it) here
   AdvVPSlash = insertAdvSlash ;
 
-{-
+
   -- : VP -> Adv -> VP ;  -- sleep , even though ...
-  ExtAdvVP vp adv =  ;
+  -- ExtAdvVP vp adv =  ;
 
   -- : AdV -> VP -> VP ;  -- always sleep
-  AdVVP adv vp = vp ** {adv = adv} ;
-
+  AdVVP adv vp = vp ** {adv = vp.adv ++ adv.s} ;
 
   -- : AdV -> VPSlash -> VPSlash ;  -- always use (it)
-  AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ;
--}
+  AdVVPSlash adv vps = vps ** { adv = vps.adv ++ adv.s} ;
+
   -- : VP -> Prep -> VPSlash ;  -- live in (it)
   -- VPSlashPrep vp prep =
   --   let adv = prepNP prep emptyNP