building Romance resource

2005-05-19 14:18:50 +00:00
parent 56c7b47a41
commit e9b8637f0d
4 changed files with 103 additions and 0 deletions
--- a/lib/resource/romance/SyntaxRomance.gf
+++ b/lib/resource/romance/SyntaxRomance.gf
@@ -1560,4 +1560,10 @@ oper

 negNe, negPas : Str ;

+
+  sats2quest : Sats -> Question = \x ->
+    let cl = sats2clause x
+    in
+    {s = \\b,f,_ => cl.s ! b ! f} ;
+
 }