summaryrefslogtreecommitdiff
path: root/next-lib/src/romance/QuestionRomance.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/romance/QuestionRomance.gf')
-rw-r--r--next-lib/src/romance/QuestionRomance.gf2
1 files changed, 1 insertions, 1 deletions
diff --git a/next-lib/src/romance/QuestionRomance.gf b/next-lib/src/romance/QuestionRomance.gf
index 6d2fa8669..09a6e5e9e 100644
--- a/next-lib/src/romance/QuestionRomance.gf
+++ b/next-lib/src/romance/QuestionRomance.gf
@@ -50,7 +50,7 @@ incomplete concrete QuestionRomance of Question =
s = \\t,a,p,_ =>
let
vp = predV copula ;
- cls = (mkClause (np.s ! Aton Nom) np.hasClit np.a vp).s !
+ cls = (mkClause (np.s ! Nom).comp np.hasClit np.a vp).s !
DInv ! t ! a ! p ! Indic ;
why = icomp.s ! {g = np.a.g ; n = np.a.n}
in why ++ cls