(Som) WIP: wh-questions

2019-09-02 17:14:25 +02:00
parent dda17aa104
commit dc33b2869a
6 changed files with 158 additions and 9 deletions
@@ -328,6 +328,9 @@ oper
    VPres _ _ Neg => True ;
    _ => False
    } ;
+
+  showSTM : STM -> Str = \stm -> case stm of {
+    Waxa  => "waxa" ; Waa _ => "waa" } ;
 --------------------------------------------------------------------------------
 -- Clauses