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/Shell/CommandL.hs
+++ b/src/GF/Shell/CommandL.hs
@@ -51,7 +51,7 @@ getCommandUTF = do

 pCommand = pCommandWords . words where 
  pCommandWords s = case s of
-    "n" : cat : _ -> CNewCat (strings2Cat cat)
+    "n" : cat : _ -> CNewCat cat
    "t" : ws      -> CNewTree $ unwords ws
    "g" : ws      -> CRefineWithTree $ unwords ws  -- *g*ive
    "p" : ws      -> CRefineParse $ unwords ws