(Ara) Add some comments

2019-01-23 16:26:00 +01:00
parent 83c6883711
commit 1373840389
2 changed files with 4 additions and 6 deletions
@@ -681,8 +681,8 @@ oper

  -- these are chosen in many places, trying to be consistent
  toOrder : QForm -> Order = \qf ->
-    case qf of { QIndir => Nominal ;
-                 QDir   => Verbal } ;
+    case qf of { QDir   => Nominal ; -- works for wh-questions, not for y/n
+                 QIndir => Verbal } ;

 -----------------------------------------------------------------------------
 -- Relative