fixed unlexer

This commit is contained in:
aarne
2004-06-24 15:13:40 +00:00
parent 59654146c6
commit 15a95cdbd2
2 changed files with 2 additions and 1 deletions

View File

@@ -205,7 +205,7 @@ optLinearizeTree opts0 gr t = case getOptVal opts transferFun of
allLinTables g c
| oElem showAll opts = liftM (unlines . map untok . prLinTable False) .
allLinTables g c
| otherwise = return . unlines . optIntOrOne . linTree2strings mk g c
| otherwise = return . unlines . map untok . optIntOrOne . linTree2strings mk g c
g = grammar gr
c = cncId gr
untok = customOrDefault opts useUntokenizer customUntokenizer gr