(Som) Fix word order in QuestVP

2026-06-28 04:16:30 -06:00 · 2019-09-03 11:25:32 +02:00
parent 19ae07b9a7
commit c42d3e33e9
2 changed files with 17 additions and 10 deletions
@@ -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 = ;