redocumenting resource

lib/resource-1.0/scandinavian/CatScand.gf

@@ -1,5 +1,5 @@
 incomplete concrete CatScand of Cat = 
-  open ResScand, Prelude, CommonScand, (R = ParamX) in {
+  TenseX ** open ResScand, Prelude, CommonScand, (R = ParamX) in {
 
   flags optimize=all_subs ;
 
@@ -87,7 +87,7 @@ incomplete concrete CatScand of Cat =
     Subj = {s : Str} ;
     Prep = {s : Str} ;
 
--- Open lexical classes, e.g. Basic
+-- Open lexical classes, e.g. Lexicon
 
     V, VS, VQ, VA = Verb ;
     V2, VV, V2A = Verb ** {c2 : Str} ;

lib/resource-1.0/scandinavian/PhraseScand.gf

@@ -1,5 +1,5 @@
 incomplete concrete PhraseScand of Phrase = 
-  CatScand, TenseX ** open CommonScand, ResScand, Prelude in {
+  CatScand ** open CommonScand, ResScand, Prelude in {
 
   lin
     PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;

lib/resource-1.0/scandinavian/SentenceScand.gf

@@ -40,4 +40,8 @@ incomplete concrete SentenceScand of Sentence =
     EmbedQS qs = {s = qs.s ! QIndir} ;
     EmbedVP vp = {s = infMark ++ infVP vp (agrP3 utrum Sg)} ; --- agr
 
+    UseCl  t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
+    UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
+    UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
+
 }

lib/resource-1.0/scandinavian/TensedScand.gf

@@ -1,11 +0,0 @@
-incomplete concrete TensedScand of Tensed = CatScand, TenseX ** 
-  open ResScand in {
-
-  flags optimize=all_subs ;
-
-  lin
-    UseCl  t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
-    UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
-    UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
-
-}