b

lab1/grammar/korean/MicroLangKor.gf

@@ -7,7 +7,7 @@ concrete MicroLangKor of MicroLang = open MicroResKor, Prelude in {
 
   lincat
     Utt = {s : Str} ;
-    
+
     S  = {s : Str} ;
     VP = {verb : Verb ; compl : Str} ; ---s special case of Mini
     Comp = {s : Str} ;

lab1/grammar/korean/MicroResKor.gf

@@ -1,11 +1,13 @@
 resource MicroResKor = open Prelude in {
   param
     Regularity = Regular | PieupIrregular ;
+    VerbType = Action | Descriptive ;
 
   oper
     Noun : Type = {s : Str} ;
     Verb : Type = {
       reg : Regularity ;
-      stem : Str
+      stem : Str ;
+      t : VerbType
       }
 }