updated dialogue to multimodal ; bug fixes in grammar compilation

This commit is contained in:
aarne
2006-05-24 15:40:15 +00:00
parent ae2ca2e945
commit 674e0c95af
11 changed files with 123 additions and 82 deletions

View File

@@ -158,6 +158,9 @@ ccompute cnc = comp []
R rs -> maybe (Bad ("unknown label" +++ prt l +++ "in" +++ prt u'))
return $
lookup l [ (x,y) | Ass x y <- rs]
FV rrs -> do
mapM (\r -> compt (P r l)) rrs >>= return . FV
_ -> return $ P u' l
FV ts -> liftM FV (mapM compt ts)
C E b -> compt b