mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-29 10:23:18 -06:00
(Som) Fix word order in QuestVP
This commit is contained in:
1 parent
19ae07b9a7
commit
c42d3e33e9
2 files changed
+17
-10
No files matched your search
@@ -13,10 +13,10 @@ concrete QuestionSom of Question = CatSom ** open
|
||||
let clRaw : ClLite = predVPlite ip vp ;
|
||||
cl : ClLite = clRaw ** {
|
||||
stm = \\clt,p => case <clt,p> of {
|
||||
<Statement,Pos> => "baa" ;
|
||||
<_,Pos> => "baa" ;
|
||||
_ => clRaw.stm ! clt ! p }
|
||||
}
|
||||
in wordOrderLite Statement cl ;
|
||||
in wordOrderLite Question cl ;
|
||||
|
||||
-- : IP -> ClSlash -> QCl ; -- whom does John love
|
||||
--QuestSlash ip cls = ;
|
||||
|
||||
Reference in new issue
Block a user