scandinavian agreement to object

2026-05-07 18:22:50 -06:00 · 2008-06-24 12:00:40 +00:00
parent 9945a5b08e
commit c122bc52d8
5 changed files with 51 additions and 25 deletions
--- a/lib/resource-1.4/scandinavian/QuestionScand.gf
+++ b/lib/resource-1.4/scandinavian/QuestionScand.gf
@@ -29,7 +29,8 @@ incomplete concrete QuestionScand of Question =
    QuestSlash ip slash = {
      s = \\t,a,p => 
            let 
-              cls = slash.s ! t ! a ! p ;
+              agr = {gn = ip.gn ; p = P3} ;
+              cls : Order => Str = \\o => slash.s ! t ! a ! p ! o ++ slash.n3 ! agr ;
              who = slash.c2.s ++ ip.s ! accusative --- stranding in ExtScand 
            in table {
              QDir   => who ++ cls ! Inv ;