Fixed several things, e.g. tokenizer.

2003-11-03 16:27:55 +00:00
parent 2728e6e7ce
commit 94326929b1
18 changed files with 133 additions and 69 deletions
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -144,6 +144,8 @@ ccompute cnc = comp []

    Con c xs -> liftM (Con c) $ mapM compt xs

+    K (KS []) -> return E --- should not be needed
+
    _        -> return t  
   where
     compt = comp g xs