add SC category

This commit is contained in:
krasimir
2008-02-21 16:38:24 +00:00
parent caad2dfe02
commit a6291512b6
2 changed files with 5 additions and 0 deletions

View File

@@ -14,6 +14,9 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
verb ++ compl
} ;
EmbedS s = {s = "," ++ "֌" ++ s.s} ;
EmbedQS qs = {s = qs.s ! QIndir} ;
UseCl t a p cl = {
s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! ODir
} ;